remove debug printfs

OCamlPro · Apr 27, 2023 · b465d56 · b465d56
1 parent d1322d7
commit b465d56
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 5 deletions.
diff --git 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
@@ -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
@@ -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