validity-time 0.3.0.0 → 0.4.0.0

raw patch · 2 files changed

+4/−10 lines, 2 files

Files

• src/Data/Validity/Time/Calendar.hs +2/−8
• validity-time.cabal +2/−2

@@ -2,18 +2,12 @@  module Data.Validity.Time.Calendar where -import Data.Validity- import Data.Time.Calendar+import Data.Validity  -- | Valid according to the 'Integer' it contains. instance Validity Day where-  validate d@(ModifiedJulianDay i) =+  validate (ModifiedJulianDay i) =     mconcat       [ delve "toModifiedJulianDay" i-      , declare "The day happened after the beginning of time" $-        d > beginningOfTime       ]--beginningOfTime :: Day-beginningOfTime = ModifiedJulianDay $ -((138 * (10 ^ (8 :: Integer))) * 356)

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 2f223a022ffad5d68447105e51ff44ba42c33f631eaa88f5bdf3df65abf41942+-- hash: 67c39e6553361815461677f4654e3cb4541d1ace7c248f665a324de744f950b7  name:           validity-time-version:        0.3.0.0+version:        0.4.0.0 synopsis:       Validity instances for time category:       Validity homepage:       https://github.com/NorfairKing/validity#readme