blob: d5f8325bde20bbc0d4537fb727ba1e4c7f4a4252 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
module Postdelay.Types
( Delay(..)
) where
import Data.Semigroup
import Data.Time.Clock (UTCTime)
newtype Delay = Until { releaseTime :: UTCTime }
deriving (Eq, Ord, Show)
instance Semigroup Delay where
(Until a) <> (Until b) = Until $ max a b
|
