diff options
Diffstat (limited to 'CmdLine/Seek.hs')
| -rw-r--r-- | CmdLine/Seek.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs index 72f1303af..621f116a0 100644 --- a/CmdLine/Seek.hs +++ b/CmdLine/Seek.hs @@ -84,8 +84,7 @@ withFilesInRefs a = mapM_ go (l, cleanup) <- inRepo $ LsTree.lsTree r forM_ l $ \i -> do let f = getTopFilePath $ LsTree.file i - v <- catKey (LsTree.sha i) - case v of + catKey (LsTree.sha i) >>= \case Nothing -> noop Just k -> whenM (matcher $ MatchingKey k) $ commandAction $ a f k |