diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-02-16 17:22:00 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-02-16 17:22:00 -0400 |
commit | 6591a9b53bdbfdae2b5bef69cfa6bc6e97f0ac35 (patch) | |
tree | 621f20da404867528875d53c62b32bdce5f9fafb /Database/Fsck.hs | |
parent | 97ed65f674a933e04bea6dcdd8457fdaa31adfdc (diff) |
avoid fromIntegral overhead
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 e52603d9c..a137cba8e 100644 --- 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)) |