diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:56:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:56:24 -0400 |
| commit | 02fe8a497434ed6b7cfa12d68779bcaa0d9813c2 (patch) | |
| tree | fd884b759a3e22af4b679de2c24d3dfb914058d1 /Database | |
| parent | 131e38a3ae3d40fb38738e78df6fed4e4a1e6005 (diff) | |
improve data type
Diffstat (limited to 'Database')
| -rw-r--r-- | Database/Keys.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Database/Keys.hs b/Database/Keys.hs index 7a844b5b0..aeb71ecde 100644 --- a/Database/Keys.hs +++ b/Database/Keys.hs @@ -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 $ |