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

factor out Utility.MonotonicClock

Browse source
This commit is contained in:
Joey Hess 2024-07-03 17:54:01 -04:00
parent 543c610a31
commit 5b6150e5d5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 30 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
P2P/Annex.hs
View file

@ -24,6 +24,7 @@ import Logs.Location
import Types.NumCopies
import Utility.Metered
import Utility.HumanTime
import Utility.MonotonicClock
import Annex.Verify
import Control.Monad.Free
@ -117,7 +118,7 @@ runLocal runst runner a = case a of
let checkts = case mts of
Nothing -> return True
Just ts -> do
now <- liftIO getMonotonicTimestampIO
now <- liftIO currentMonotonicTimestamp
return (now < ts)
v <- tryNonAsync $
ifM (Annex.Content.inAnnex k)