module Utils.Schedule.Week.Types.TimeSlot
  ( TimeSlot(..)
  ) where

import Import.NoModel


-- | Half-open interval of time
--
-- Fields are to be interpreted as time since midnight
data TimeSlot = TimeSlot
  { tsFrom :: NominalDiffTime -- ^ Inclusive
  , tsTo   :: NominalDiffTime -- ^ Exclusive
  } deriving (Eq, Ord, Show, Generic, Typeable)
