[commit: packages/time] master: Some haddock formatting for fromMondayStartWeek and fromSundayStartWeek. (c2bc34a)

git at git.haskell.org git at git.haskell.org
Sun Dec 20 07:50:12 UTC 2015


Repository : ssh://git@git.haskell.org/time

On branch  : master
Link       : http://git.haskell.org/packages/time.git/commitdiff/c2bc34a0e99761e5c16f3217d4b1bc67c6303dc2

>---------------------------------------------------------------

commit c2bc34a0e99761e5c16f3217d4b1bc67c6303dc2
Author: bjorn <bjorn at bringert.net>
Date:   Thu Nov 16 01:56:20 2006 -0800

    Some haddock formatting for fromMondayStartWeek and fromSundayStartWeek.
    
    darcs-hash:20061116095620-6cdb2-0add550bd79d80a7f1ddd794a050d72c25226e63


>---------------------------------------------------------------

c2bc34a0e99761e5c16f3217d4b1bc67c6303dc2
 Data/Time/Calendar/OrdinalDate.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/Data/Time/Calendar/OrdinalDate.hs b/Data/Time/Calendar/OrdinalDate.hs
index a88943f..dfd4069 100644
--- a/Data/Time/Calendar/OrdinalDate.hs
+++ b/Data/Time/Calendar/OrdinalDate.hs
@@ -58,11 +58,11 @@ sundayStartWeek date =(fromInteger ((div d 7) - (div k 7)),fromInteger (mod d 7)
 -- | The inverse of 'mondayStartWeek'. Get a 'Day' given the year,
 -- the number of the Monday-starting week, and the day of the week.
 -- The first Monday is the first day of week 1, any earlier days in the year 
--- are week 0 (as \"%W\" in formatTime).
+-- are week 0 (as \"%W\" in 'formatTime').
 fromMondayStartWeek :: Integer -- ^ Year.
                     -> Int     -- ^ Monday-starting week number.
                     -> Int     -- ^ Day of week. 
-                               -- Monday is 1, Sunday is 7 (as \"%u\" in formatTime).
+                               -- Monday is 1, Sunday is 7 (as \"%u\" in 'formatTime').
                     -> Day
 fromMondayStartWeek y w d = ModifiedJulianDay (firstDay + yd)
     where yd = firstMonday + 7 * toInteger (w-1) + toInteger d - 1
@@ -74,12 +74,11 @@ fromMondayStartWeek y w d = ModifiedJulianDay (firstDay + yd)
 -- | The inverse of 'sundayStartWeek'. Get a 'Day' given the year and
 -- the number of the day of a Sunday-starting week.
 -- The first Sunday is the first day of week 1, any earlier days in the 
--- year are week 0 (as \"%U\" in formatTime).
--- Sunday is 0, Saturday is 6 (as \"%w\" in formatTime).
+-- year are week 0 (as \"%U\" in 'formatTime').
 fromSundayStartWeek :: Integer -- ^ Year.
                     -> Int     -- ^ Sunday-starting week number.
                     -> Int     -- ^ Day of week
-                               -- Sunday is 0, Saturday is 6 (as \"%w\" in formatTime).
+                               -- Sunday is 0, Saturday is 6 (as \"%w\" in 'formatTime').
                     -> Day
 fromSundayStartWeek y w d = ModifiedJulianDay (firstDay + yd)
     where yd = firstSunday + 7 * toInteger (w-1) + toInteger d



More information about the ghc-commits mailing list