diff --git a/Annex.hs b/Annex.hs index d642885bc8..6f78685605 100644 --- a/Annex.hs +++ b/Annex.hs @@ -215,6 +215,7 @@ new :: Git.Repo -> IO AnnexState new r = do r' <- Git.Config.read =<< Git.relPath r let c = extractGitConfig r' + print =<< fixupRepo r' c newState c =<< fixupRepo r' c {- Performs an action in the Annex monad from a starting state, diff --git a/Utility/Process.hs b/Utility/Process.hs index af3a5f4f62..5a7caac96c 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -277,7 +277,7 @@ processHandle (_, _, _, pid) = pid -- | Shows the command that a CreateProcess will run. showCmd :: CreateProcess -> String -showCmd = go . cmdspec +showCmd p = go (cmdspec p) ++ " " ++ show (env p) where go (ShellCommand s) = s go (RawCommand c ps) = c ++ " " ++ show ps diff --git a/doc/bugs/fails_to_init_under_a_directory_with_a___34__tricky__34___name/comment_2_6d57bda8ddc603f24e16018969ac780a._comment b/doc/bugs/fails_to_init_under_a_directory_with_a___34__tricky__34___name/comment_2_6d57bda8ddc603f24e16018969ac780a._comment index 9076757039..85fd272d2d 100644 --- a/doc/bugs/fails_to_init_under_a_directory_with_a___34__tricky__34___name/comment_2_6d57bda8ddc603f24e16018969ac780a._comment +++ b/doc/bugs/fails_to_init_under_a_directory_with_a___34__tricky__34___name/comment_2_6d57bda8ddc603f24e16018969ac780a._comment @@ -42,5 +42,7 @@ running createProcess with this: CreateProcess {cmdspec = RawCommand "git" ["update-index","--index-info"], cwd = Nothing, env = Just [("GIT_INDEX_FILE","/tmp/\56514\56481/.git/annex/index")], std_in = Inherit, std_out = Inherit, std_err = Inherit, close_fds = False, create_group = False, delegate_ctlc = False, detach_console = False, create_new_console = False, new_session = False, child_group = Nothing, child_user = Nothing, use_process_jobs = False} -This bug needs to be forwarded to process. +This bug needs to be forwarded to http://hackage.haskell.org/process, +after checking what environment value it actually passes to the child +process in this case. """]]