AutoForms-0.4.0: src/Examples/HCron/Entry2ndRecurring.hs

module Entry2ndRecurring
    ( HCron, Entry(Entry, when, command)
    , Time(Time, year, month, day, hour, minute)
    , specLocation
    , module System.Time
    )
where

import System.Time

type HCron = [Entry Time]

data Entry t = Entry { when      :: t
                     , recurring :: Maybe TimeDiff
                     , command   :: String } deriving (Show, Read, Eq, Ord)

data Time = Time { year :: Int
                 , month :: System.Time.Month
                 , day :: Int
                 , hour :: Int
                 , minute :: Int } deriving (Show, Read, Eq, Ord)

specLocation :: String
specLocation = "hcronRecurring.spec"