date-conversions 0.1.0.0 → 0.2.0.0
raw patch · 2 files changed
+37/−1 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Data.Time.Calendar.DateConversions: nextMonth :: Day -> Day
+ Data.Time.Calendar.DateConversions: nextQuarter :: Day -> Day
+ Data.Time.Calendar.DateConversions: nextWeek :: Day -> Day
+ Data.Time.Calendar.DateConversions: nextYear :: Day -> Day
+ Data.Time.Calendar.DateConversions: previousMonth :: Day -> Day
+ Data.Time.Calendar.DateConversions: previousQuarter :: Day -> Day
+ Data.Time.Calendar.DateConversions: previousWeek :: Day -> Day
+ Data.Time.Calendar.DateConversions: previousYear :: Day -> Day
Files
date-conversions.cabal view
@@ -1,5 +1,5 @@ name: date-conversions-version: 0.1.0.0+version: 0.2.0.0 synopsis: Date conversions description: Please see README.md homepage: https://github.com/thoughtbot/date-conversions#readme
src/Data/Time/Calendar/DateConversions.hs view
@@ -11,6 +11,18 @@ , endOfMonth , endOfQuarter , endOfYear++ -- next+ , nextWeek+ , nextMonth+ , nextQuarter+ , nextYear++ -- previous+ , previousWeek+ , previousMonth+ , previousQuarter+ , previousYear ) where import qualified Data.Dates as D@@ -51,3 +63,27 @@ endOfYear :: T.Day -> T.Day endOfYear = T.addDays (-1) . T.addGregorianYearsClip 1 . beginningOfYear++nextWeek :: T.Day -> T.Day+nextWeek = T.addDays 7 . beginningOfWeek++nextMonth :: T.Day -> T.Day+nextMonth = T.addGregorianMonthsClip 1 . beginningOfMonth++nextQuarter :: T.Day -> T.Day+nextQuarter = T.addGregorianMonthsClip 3 . beginningOfQuarter++nextYear :: T.Day -> T.Day+nextYear = T.addGregorianMonthsClip 12 . beginningOfYear++previousWeek :: T.Day -> T.Day+previousWeek = T.addDays (-7) . beginningOfWeek++previousMonth :: T.Day -> T.Day+previousMonth = T.addGregorianMonthsClip (-1) . beginningOfMonth++previousQuarter :: T.Day -> T.Day+previousQuarter = T.addGregorianMonthsClip (-3) . beginningOfQuarter++previousYear :: T.Day -> T.Day+previousYear = T.addGregorianMonthsClip (-12) . beginningOfYear