diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-17 11:44:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-17 11:45:24 -0400 |
| commit | 21d9c84e7292a8984ea5d46c0134ddc6ff19babc (patch) | |
| tree | 4ad29fe99c515c5d8fd27233c88611a8f792ec2d /GitRepo.hs | |
| parent | c91929f6934fc4e94603d0fa004e824d5e2cfb65 (diff) | |
more standard names for whenM and unlessM operators
These are defined in ifelse, but it's not currently available and I don't
want to pull in a library for 6 lines of code anyhow.
Also, ifelse sets the fixity to 1, which does not allow >>? error $ ...
Diffstat (limited to 'GitRepo.hs')
| -rw-r--r-- | GitRepo.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index d070bc89e..f489dfe35 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -331,7 +331,7 @@ gitCommandLine repo _ = assertLocal repo $ error "internal" run :: Repo -> String -> [CommandParam] -> IO () run repo subcommand params = assertLocal repo $ boolSystem "git" (gitCommandLine repo ((Param subcommand):params)) - <|> error $ "git " ++ show params ++ " failed" + >>! error $ "git " ++ show params ++ " failed" {- Runs a git subcommand and returns it output, lazily. - |