Commits

Anonymous committed 21cca4f Draft

debug 'hg ident' after 'hg clone'

  • Participants
  • Parent commits 8d62c8f

Comments (0)

Files changed (1)

File src/pre_template.ml

         (fun ~dest ->
            let argv = [| "hg" ; "clone" ; repo ; dest |] in
            if 0 = Reb_sys.run ~show:true argv
-           then dest
+           then
+             let () = dbg "hg ident after cloning: %s"
+               (try
+                  List.hd
+                    (Reb_sys.lines_of_process
+                       (Printf.sprintf "hg -R %s ident"
+                          (Filename.quote dest)
+                       )
+                    )
+                with
+                | _ -> "can't get ident"
+               )
+             in
+               dest
            else failwith "can't clone mercurial repository with command %s"
                   (Reb_sys.dump_argv argv)
         )