factor out Utility.MonotonicClock

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

View file

@ -26,6 +26,7 @@ import Utility.Applicative
import Utility.PartialPrelude
import Utility.Metered
import Utility.FileSystemEncoding
import Utility.MonotonicClock
import Git.FilePath
import Annex.ChangedRefs (ChangedRefs)
@ -71,9 +72,6 @@ data Validity = Valid | Invalid
newtype Bypass = Bypass (S.Set UUID)
deriving (Show, Monoid, Semigroup)
newtype MonotonicTimestamp = MonotonicTimestamp Integer
deriving (Show, Eq, Ord)
-- | Messages in the protocol. The peer that makes the connection
-- always initiates requests, and the other peer makes responses to them.
data Message