diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-17 03:10:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-17 03:13:11 -0400 |
| commit | c91929f6934fc4e94603d0fa004e824d5e2cfb65 (patch) | |
| tree | e958f5b4dc1209afb90c786493164c351dea4b9a /git-annex-shell.hs | |
| parent | 75a3f5027f74565d909fb940893636d081d9872a (diff) | |
add whenM and unlessM
Just more golfing.. I am pretty sure something in a library somewhere can
do this, but I have been unable to find it.
Diffstat (limited to 'git-annex-shell.hs')
| -rw-r--r-- | git-annex-shell.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs index e8a744748..1487a6161 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -6,7 +6,6 @@ -} import System.Environment -import Control.Monad (when) import Data.List import qualified GitRepo as Git @@ -66,8 +65,7 @@ builtin cmd dir params = do external :: [String] -> IO () external params = do - ret <- boolSystem "git-shell" $ map Param $ ("-c":filterparams params) - when (not ret) $ + unlessM (boolSystem "git-shell" $ map Param $ "-c":filterparams params) $ error "git-shell failed" -- Drop all args after "--". |