mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid fromIntegral overhead

Browse source
This commit is contained in:
Joey Hess 2015-02-16 17:22:00 -04:00
parent 4e0a678a99
commit 99a1287f4f
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Database/Handle.hs
View file

@ -67,7 +67,7 @@ workerThread db jobs = go
runDb :: DbHandle -> SqlPersistM a -> IO a
runDb h = runDb' h CommitManually
data CommitPolicy = CommitManually | CommitAfterSeconds Int
data CommitPolicy = CommitManually | CommitAfter NominalDiffTime
runDb' :: DbHandle -> CommitPolicy -> SqlPersistM a -> IO a
runDb' h@(DbHandle _ jobs t) pol a = do
@ -76,11 +76,11 @@ runDb' h@(DbHandle _ jobs t) pol a = do
r <- either throwIO return =<< takeMVar res
case pol of
CommitManually -> return ()
CommitAfterSeconds n -> do
CommitAfter n -> do
now <- getCurrentTime
prev <- takeMVar t
putMVar t now
when (diffUTCTime now prev > fromIntegral n) $
when (diffUTCTime now prev > n) $
commitDb h
return r