fuzzy-timings-0.0.1: FuzzyTimings/AccTiming.hs

module FuzzyTimings.AccTiming where

import Data.Time.LocalTime

-- | Accurately timed object with duration
data AccTiming k = AccTiming {
    atId         :: k,
    atTime       :: LocalTime,
    atDuration   :: Int
} deriving (Show)

instance (Eq k) => Eq (AccTiming k) where
    a1 == a2 = atId a1 == atId a2