analysis

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,

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

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.
 """]]