diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-08-31 12:47:08 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-08-31 12:47:08 -0400 |
commit | a46a3ce0208f4471368a4070ebd12835375491a5 (patch) | |
tree | f00d962cd08c370673dca0d943323d04f5519750 /CmdLine | |
parent | 402d8ca3b29bfe500ebcbec82bc0d3b2168b6100 (diff) |
improve type
Diffstat (limited to 'CmdLine')
-rw-r--r-- | CmdLine/Seek.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs index 66cd985f4..556a108eb 100644 --- a/CmdLine/Seek.hs +++ b/CmdLine/Seek.hs @@ -77,12 +77,12 @@ withFilesNotInGit skipdotfiles a params go l = seekActions $ prepFiltered a $ return $ concat $ segmentPaths params l -withFilesInRefs :: (FilePath -> Key -> CommandStart) -> CmdParams -> CommandSeek +withFilesInRefs :: (FilePath -> Key -> CommandStart) -> [Git.Ref] -> CommandSeek withFilesInRefs a = mapM_ go where go r = do matcher <- Limit.getMatcher - (l, cleanup) <- inRepo $ LsTree.lsTree (Git.Ref r) + (l, cleanup) <- inRepo $ LsTree.lsTree r forM_ l $ \i -> do let f = getTopFilePath $ LsTree.file i v <- catKey (LsTree.sha i) |