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

got rid of almost all 'return ()'

Browse source
This commit is contained in:
Joey Hess 2010-10-28 12:40:05 -04:00
parent 9c7b3dce9e
commit 045b051ec1
9 changed files with 30 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

3
GitRepo.hs
View file

@ -191,8 +191,7 @@ gitCommandLine repo params = assertLocal repo $
{- Runs git in the specified repo. -}
run :: Repo -> [String] -> IO ()
run repo params = assertLocal repo $ do
r <- safeSystem "git" (gitCommandLine repo params)
return ()
safeSystem "git" (gitCommandLine repo params)
{- Runs a git subcommand and returns its output. -}
pipeRead :: Repo -> [String] -> IO String