mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

revert debugging code

Browse source 
from commit 63e37b0beb
This commit is contained in:
Joey Hess 2019-09-09 15:21:24 -04:00
parent f9f9215d2c
commit 07de0e7e9d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Annex.hs
View file

@ -215,7 +215,6 @@ new :: Git.Repo -> IO AnnexState
new r = do new r = do
r' <- Git.Config.read =<< Git.relPath r r' <- Git.Config.read =<< Git.relPath r
let c = extractGitConfig r' let c = extractGitConfig r'
print =<< fixupRepo r' c
newState c =<< fixupRepo r' c newState c =<< fixupRepo r' c
{- Performs an action in the Annex monad from a starting state, {- Performs an action in the Annex monad from a starting state,

2
Utility/Process.hs
View file

@ -277,7 +277,7 @@ processHandle (_, _, _, pid) = pid
-- | Shows the command that a CreateProcess will run. -- | Shows the command that a CreateProcess will run.
showCmd :: CreateProcess -> String showCmd :: CreateProcess -> String
showCmd p = go (cmdspec p) ++ " " ++ show (env p) showCmd = go . cmdspec
where where
go (ShellCommand s) = s go (ShellCommand s) = s
go (RawCommand c ps) = c ++ " " ++ show ps go (RawCommand c ps) = c ++ " " ++ show ps