cron 0.7.1 → 0.7.2
raw patch · 7 files changed
+13/−10 lines, 7 filesdep +data-defaultdep −data-default-classPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies added: data-default
Dependencies removed: data-default-class
API changes (from Hackage documentation)
- System.Cron.Internal.Describe.Options: instance Data.Default.Class.Default System.Cron.Internal.Describe.Options.Options
+ System.Cron.Internal.Describe.Options: instance Data.Default.Internal.Default System.Cron.Internal.Describe.Options.Options
Files
- changelog +2/−0
- cron.cabal +2/−2
- src/System/Cron/Internal/Check.hs +1/−1
- src/System/Cron/Internal/Describe/Options.hs +1/−1
- test/System/Test/Cron.hs +2/−2
- test/System/Test/Cron/Describe.hs +1/−1
- test/System/Test/Cron/Schedule.hs +4/−3
changelog view
@@ -1,3 +1,5 @@+# 0.7.2+* Replace data-default-class with data-default, Michael Xavier (@MichaelXavier) # 0.7.1 * expose fork job, Jappie Klooster (@jappeace) # 0.7.0
cron.cabal view
@@ -1,5 +1,5 @@ Name: cron-Version: 0.7.1+Version: 0.7.2 Description: Cron data structure and Attoparsec parser. The idea is to embed it in larger systems which want to roll their own scheduled tasks in a format that people@@ -64,7 +64,7 @@ , mtl >= 2.0.1 , mtl-compat >= 0.2.1 , semigroups- , data-default-class >= 0.0.1+ , data-default if flag(lib-Werror) ghc-options: -Werror
src/System/Cron/Internal/Check.hs view
@@ -12,7 +12,7 @@ import Data.Time (Day, DiffTime, UTCTime (..), addUTCTime, fromGregorianValid, toGregorian)-import Data.Time.Calendar.WeekDate+import Data.Time.Calendar.WeekDate (toWeekDate) import qualified Data.Traversable as FT ------------------------------------------------------------------------------- import System.Cron.Types as CT
src/System/Cron/Internal/Describe/Options.hs view
@@ -12,7 +12,7 @@ module System.Cron.Internal.Describe.Options where --------------------------------------------------------------------------------import Data.Default.Class+import Data.Default import Data.Semigroup as Semigroup ------------------------------------------------------------------------------- import System.Cron.Internal.Describe.Types
test/System/Test/Cron.hs view
@@ -102,8 +102,8 @@ (UTCTime (fromGregorian 2014 11 1) 600) @?= True -- https://github.com/MichaelXavier/cron/issues/18 , testCase "correctly schedules steps and ranges" $ do- let Right oddMinute = parseOnly cronSchedule "1-59/2 * * * *"- let Right evenMinute = parseOnly cronSchedule "0-59/2 * * * *"+ let oddMinute = either error id $ parseOnly cronSchedule "1-59/2 * * * *"+ let evenMinute = either error id $ parseOnly cronSchedule "0-59/2 * * * *" let t1 = mkTime 2015 7 17 15 17 0 let t2 = mkTime 2015 7 17 15 18 0 scheduleMatches oddMinute t1 @?= True
test/System/Test/Cron/Describe.hs view
@@ -126,7 +126,7 @@ ] ] where- mkCronSchedule t = let (Right cs) = parseCronSchedule t in cs+ mkCronSchedule t = let cs = either error id $ parseCronSchedule t in cs describeNV = describe (twentyFourHourFormat <> notVerbose) . mkCronSchedule describeV = describe (twentyFourHourFormat <> verbose) . mkCronSchedule describe12 = describe verbose . mkCronSchedule
test/System/Test/Cron/Schedule.hs view
@@ -32,9 +32,10 @@ , testCase "should read all three jobs." $ length s @?= 3 ]- where Right ((), s) = runSchedule $ do addJob noop "* * * * *"- addJob noop "0 * * * *"- addJob noop "0 0 * * *"+ where ((), s) = either (error . show) id $ runSchedule $ do+ addJob noop "* * * * *"+ addJob noop "0 * * * *"+ addJob noop "0 0 * * *" noop = return () describeExecSchedule :: TestTree