mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve data type

Browse source
This commit is contained in:
Joey Hess 2016-01-01 15:56:24 -04:00
parent f7256842cc
commit ec28151722
Failed to extract signature
5 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Database/Keys.hs
View file

@ -221,7 +221,7 @@ scanAssociatedFiles = whenM (isJust <$> inRepo Git.Branch.current) $
forM_ l $ \i ->
when (isregfile i) $
maybe noop (add h i)
=<< catKey (Git.Types.Ref $ Git.LsTree.sha i)
=<< catKey (Git.LsTree.sha i)
liftIO $ void cleanup
where
dropallassociated = queueDb $