time-patterns 0.1.4.1 → 0.1.4.2

raw patch · 2 files changed

+14/−3 lines, 2 files

Files

• src/Data/Time/Patterns.hs +13/−2
• time-patterns.cabal +1/−1

@@ -70,6 +70,7 @@     except,     intersect,     union,+    until,     -- * Queries     elementOf,     instancesFrom,@@ -88,9 +89,10 @@ import qualified Data.Time.Patterns.Internal    as I import           Numeric.Interval import           Prelude                        hiding (cycle, elem, filter,-                                                 take)+                                                 take, until) --- | A DatePattern describes a sequence of intervals of type Data.Thyme.Day.+-- | A `DatePattern` describes a sequence of intervals of type +-- `Data.Time.Calendar.Day`. type DatePattern = IntervalSequence' Day  -- | An event that occurs every month.@@ -339,3 +341,12 @@  monthOfYear :: Int -> DatePattern monthOfYear i = IntervalSequence $ \d -> Just (getMonth i d, monthOfYear i)++-- | Only include date intervals that end before the given date.+-- +-- > >> let third = (take 1 $ skip 2 day) `inEach` month+-- > >> let pattern = third `until` (fromGregorian 2020 12 01)+-- > >> instancesFrom (fromGregorian 2017 01 01) pattern+-- > [2017-01-03,2017-02-03 ... 2020-10-03,2020-11-03]+until :: DatePattern -> Day -> DatePattern+until = flip I.stopAt'

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                time-patterns-version:             0.1.4.1+version:             0.1.4.2 synopsis:            Patterns for recurring events license:             BSD3 license-file:        LICENSE