diff --git a/src/drom_lib/commandNew.ml b/src/drom_lib/commandNew.ml index 191342c9..251f0e9f 100644 --- a/src/drom_lib/commandNew.ml +++ b/src/drom_lib/commandNew.ml @@ -145,7 +145,6 @@ let create_project ~config ~name ~skeleton ~dir ~inplace ~args = } in package.project <- p; - Printf.eprintf "(0.1) project_create = %b\n%!" p.project_create ; if not inplace then ( if Sys.file_exists name then Error.raise "A directory %s already exists" name; @@ -167,7 +166,6 @@ let create_project ~config ~name ~skeleton ~dir ~inplace ~args = (p, Some content) ) in let p, p_content = iter_skeleton skeleton.skeleton_toml in - Printf.eprintf "(0.2) project_create = %b\n%!" p.project_create ; (* second, resolve package skeletons *) let rec iter_skeleton package list = match list with diff --git a/src/drom_lib/project.ml b/src/drom_lib/project.ml index c128145a..e938780e 100644 --- a/src/drom_lib/project.ml +++ b/src/drom_lib/project.ml @@ -86,7 +86,6 @@ let to_files share p = p.project_share_version in let version = - Printf.eprintf "drom version : %s\n%!" share.drom_version ; if VersionCompare.compare share.drom_version "0.9.2~dev2" > 0 then begin version |> EzToml.put_bool [ "project"; "create-project" ] p.project_create diff --git a/src/drom_lib/update.ml b/src/drom_lib/update.ml index e08f17de..17755ba1 100644 --- a/src/drom_lib/update.ml +++ b/src/drom_lib/update.ml @@ -145,7 +145,6 @@ let update_files share ?args ?(git = false) p = | Some edition -> ({ p with edition }, true) in - Printf.eprintf "(1.1) project_create = %b\n%!" p.project_create ; let p, changed = match args.arg_create with | None -> (p, changed) @@ -155,7 +154,6 @@ let update_files share ?args ?(git = false) p = else ({ p with project_create = bool }, true) in - Printf.eprintf "(1.2) project_create = %b\n%!" p.project_create ; let p, changed = match args.arg_min_edition with