tilia-0.1.0.0: corpora/vendored/declaration/class/comment-under-the-last-member-out.hs

module Terminal.Time where

class Timed a where
  timeType ::
    Maybe Word ->
    Bool ->
    a
  -- TODO interval type

class Zoned a where
  zonedType ::
    Maybe Word ->
    -- | With time zone
    Bool ->
    a
  -- TODO interval type

instance Timed Int where
  timeType precision zoned =
    if zoned then 1 else 0
  -- TODO use the precision

clock :: Int
clock = 1