diff options
Diffstat (limited to 'Command/Status.hs')
-rw-r--r-- | Command/Status.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 2e6b9f44a..07024f3c8 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -47,8 +47,10 @@ start o locs = do , return $ \s -> pure (Just s) ) forM_ l $ \s -> maybe noop displayStatus =<< getstatus s - void $ liftIO cleanup - stop + ifM (liftIO cleanup) + ( stop + , giveup "git status failed" + ) where ps = case ignoreSubmodules o of Nothing -> [] |