module Job.Frequency
  ( Frequency(..)
  , microSeconds
  ) where

data Frequency =
  EveryHour
  | EveryDay
  deriving (Eq, Read, Show)

microSeconds :: Frequency -> Int
microSeconds EveryHour = 1000000 * 60 * 60
microSeconds EveryDay  = (microSeconds EveryHour) * 24