diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-04-09 00:28:30 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-09 01:15:24 -0400 |
| commit | 1e1da13d6b500b1b90b9a9620056ab16a0da48c1 (patch) | |
| tree | 1434db2196b82c05642a0ad3bf9b190780d7113a | |
| parent | ef36052ffad69ee15c8d33d6d77a6f4d4c3170b1 (diff) | |
merge from propellor
| -rw-r--r-- | Utility/Scheduled.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/Utility/Scheduled.hs b/Utility/Scheduled.hs index acbee70ff..11e3b569b 100644 --- a/Utility/Scheduled.hs +++ b/Utility/Scheduled.hs @@ -10,7 +10,11 @@ module Utility.Scheduled ( Recurrance(..), ScheduledTime(..), NextTime(..), + WeekDay, + MonthDay, + YearDay, nextTime, + startTime, fromSchedule, fromScheduledTime, toScheduledTime, @@ -21,9 +25,13 @@ module Utility.Scheduled ( prop_schedule_roundtrips ) where -import Common +import Utility.Data import Utility.QuickCheck +import Utility.PartialPrelude +import Utility.Misc +import Control.Applicative +import Data.List import Data.Time.Clock import Data.Time.LocalTime import Data.Time.Calendar @@ -41,9 +49,9 @@ data Recurrance | Weekly (Maybe WeekDay) | Monthly (Maybe MonthDay) | Yearly (Maybe YearDay) - -- Days, Weeks, or Months of the year evenly divisible by a number. - -- (Divisible Year is years evenly divisible by a number.) | Divisible Int Recurrance + -- ^ Days, Weeks, or Months of the year evenly divisible by a number. + -- (Divisible Year is years evenly divisible by a number.) deriving (Eq, Read, Show, Ord) type WeekDay = Int |