improve data type
This commit is contained in:
parent
f7256842cc
commit
ec28151722
5 changed files with 8 additions and 7 deletions
|
@ -80,7 +80,7 @@ withFilesInRefs a = mapM_ go
|
|||
(l, cleanup) <- inRepo $ LsTree.lsTree (Git.Ref r)
|
||||
forM_ l $ \i -> do
|
||||
let f = getTopFilePath $ LsTree.file i
|
||||
v <- catKey (Git.Ref $ LsTree.sha i)
|
||||
v <- catKey (LsTree.sha i)
|
||||
case v of
|
||||
Nothing -> noop
|
||||
Just k -> whenM (matcher $ MatchingKey k) $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue