avoid fromIntegral overhead

2015-02-16 17:22:00 -04:00 · 2015-02-16 17:22:00 -04:00 · 99a1287f4f
commit 99a1287f4f
parent 4e0a678a99
2 changed files with 4 additions and 4 deletions
--- a/Database/Fsck.hs
+++ b/Database/Fsck.hs
@ -75,4 +75,4 @@ inDb h k = H.runDb h $ do
 - fsck left off, and making too many commits which slows down the fsck
 - of lots of small or not present files. -}
 commitPolicy :: H.CommitPolicy
-commitPolicy = H.CommitAfterSeconds 60
+commitPolicy = H.CommitAfter (fromIntegral (60 :: Int))