From 02fe8a497434ed6b7cfa12d68779bcaa0d9813c2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 1 Jan 2016 15:56:24 -0400 Subject: improve data type --- Database/Keys.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Database') 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 $ -- cgit v1.2.3