diff options
Diffstat (limited to 'Database')
| -rw-r--r-- | Database/Keys.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Database/Keys.hs b/Database/Keys.hs index 246ccd191..ed3878161 100644 --- a/Database/Keys.hs +++ b/Database/Keys.hs @@ -170,7 +170,10 @@ scanAssociatedFiles = whenM (isJust <$> inRepo Git.Branch.current) $ dropallassociated h = liftIO $ flip SQL.queueDb h $ delete $ from $ \(_r :: SqlExpr (Entity SQL.Associated)) -> return () - isregfile i = Git.Types.toBlobType (Git.LsTree.mode i) == Just Git.Types.FileBlob + isregfile i = case Git.Types.toBlobType (Git.LsTree.mode i) of + Just Git.Types.FileBlob -> True + Just Git.Types.ExecutableBlob -> True + _ -> False add h i k = liftIO $ flip SQL.queueDb h $ void $ insertUnique $ SQL.Associated (toIKey k) |