diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-07-20 13:44:33 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-07-20 13:44:50 -0400 |
| commit | 3b35227c3b739488c7093ab4856d23358bea3f9d (patch) | |
| tree | 940d193c26d38ca09798c90800c64d8dab0d1fce /CmdLine/Seek.hs | |
| parent | d9419017025b307f25bf169a0744e04fb604b959 (diff) | |
propigate error
Diffstat (limited to 'CmdLine/Seek.hs')
| -rw-r--r-- | CmdLine/Seek.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs index fb303642e..e7c52b63f 100644 --- a/CmdLine/Seek.hs +++ b/CmdLine/Seek.hs @@ -204,7 +204,8 @@ withKeyOptions' ko auto mkkeyaction fallbackaction params = do forM_ l $ \i -> maybe noop (\k -> keyaction (return [k])) =<< catKey (LsTree.sha i) - liftIO $ void cleanup + unlessM (liftIO cleanup) $ + error ("git ls-tree " ++ Git.fromRef b ++ " failed") prepFiltered :: (FilePath -> CommandStart) -> Annex [FilePath] -> Annex [CommandStart] prepFiltered a fs = do |