diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
| commit | 045b051ec10023afc2e62895032527d5b5130495 (patch) | |
| tree | a438d96566ccebbccf5c1ec1d35e43d2c5097578 /GitRepo.hs | |
| parent | 9c7b3dce9e8f964ed60dd45bca580a46ff8a5ed5 (diff) | |
got rid of almost all 'return ()'
Diffstat (limited to 'GitRepo.hs')
| -rw-r--r-- | GitRepo.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index 0e87c9526..d0fac96c1 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -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 |