diff options
Diffstat (limited to 'Database/Fsck.hs')
| -rw-r--r-- | Database/Fsck.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Database/Fsck.hs b/Database/Fsck.hs index 92c814cf1..d249c8de6 100644 --- a/Database/Fsck.hs +++ b/Database/Fsck.hs @@ -96,7 +96,7 @@ addDb (FsckHandle h _) k = H.queueDb h 1000 $ sk = toSKey k inDb :: FsckHandle -> Key -> IO Bool -inDb (FsckHandle h _) = H.queryDb h . inDb' . toSKey +inDb (FsckHandle h _) = H.queryDb h False . inDb' . toSKey inDb' :: SKey -> SqlPersistM Bool inDb' sk = do |