factor out Utility.MonotonicClock
This commit is contained in:
parent
543c610a31
commit
5b6150e5d5
5 changed files with 30 additions and 15 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue