src/server/Job/Frequency.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

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