remove trailing space
authorAshley Yakeley <ashley@yakeley.org>
Sun, 20 Dec 2015 04:33:15 +0000 (20:33 -0800)
committerAshley Yakeley <ashley@yakeley.org>
Sun, 20 Dec 2015 04:33:15 +0000 (20:33 -0800)
lib/Data/Time/Calendar/OrdinalDate.hs
lib/Data/Time/Format/Parse.hs
test/Test/ConvertBack.hs
test/Test/TestTime.hs

index a9cdd60..5c6701d 100644 (file)
@@ -78,16 +78,16 @@ fromMondayStartWeek year w d = let
 
     -- 0-based year day of first monday of the year
     zbFirstMonday = (5 - toModifiedJulianDay firstDay) `mod` 7
-    
+
     -- 0-based week of year
     zbWeek = w - 1
-    
+
     -- 0-based day of week
     zbDay = d - 1
-    
+
     -- 0-based day in year
     zbYearDay = zbFirstMonday + 7 * toInteger zbWeek + toInteger zbDay
-    
+
     in addDays zbYearDay firstDay
 
 fromMondayStartWeekValid :: Integer -- ^ Year.
@@ -103,16 +103,16 @@ fromMondayStartWeekValid year w d = do
 
         -- 0-based week of year
         zbFirstMonday = (5 - toModifiedJulianDay firstDay) `mod` 7
-        
+
         -- 0-based week number
         zbWeek = w - 1
-        
+
         -- 0-based day of week
         zbDay = d' - 1
-        
+
         -- 0-based day in year
         zbYearDay = zbFirstMonday + 7 * toInteger zbWeek + toInteger zbDay
-        
+
     zbYearDay' <- clipValid 0 (if isLeapYear year then 365 else 364) zbYearDay
     return $ addDays zbYearDay' firstDay
 
@@ -131,16 +131,16 @@ fromSundayStartWeek year w d = let
 
     -- 0-based year day of first monday of the year
     zbFirstSunday = (4 - toModifiedJulianDay firstDay) `mod` 7
-    
+
     -- 0-based week of year
     zbWeek = w - 1
-    
+
     -- 0-based day of week
     zbDay = d
-    
+
     -- 0-based day in year
     zbYearDay = zbFirstSunday + 7 * toInteger zbWeek + toInteger zbDay
-    
+
     in addDays zbYearDay firstDay
 
 fromSundayStartWeekValid :: Integer -- ^ Year.
@@ -156,15 +156,15 @@ fromSundayStartWeekValid year w d =  do
 
         -- 0-based week of year
         zbFirstSunday = (4 - toModifiedJulianDay firstDay) `mod` 7
-        
+
         -- 0-based week number
         zbWeek = w - 1
-        
+
         -- 0-based day of week
         zbDay = d'
-        
+
         -- 0-based day in year
         zbYearDay = zbFirstSunday + 7 * toInteger zbWeek + toInteger zbDay
-        
+
     zbYearDay' <- clipValid 0 (if isLeapYear year then 365 else 364) zbYearDay
     return $ addDays zbYearDay' firstDay
index d80133d..3918719 100644 (file)
@@ -329,20 +329,20 @@ instance ParseTime Day where
     buildTime l = let
 
         -- 'Nothing' indicates a parse failure,
-        -- while 'Just []' means no information 
+        -- while 'Just []' means no information
         f :: Char -> String -> Maybe [DayComponent]
         f c x = let
             ra :: (Read a) => Maybe a
             ra = readMaybe x
-            
+
             zeroBasedListIndex :: [String] -> Maybe Int
             zeroBasedListIndex ss = elemIndex (up x) $ fmap up ss
-            
+
             oneBasedListIndex :: [String] -> Maybe Int
             oneBasedListIndex ss = do
                 index <- zeroBasedListIndex ss
                 return $ 1 + index
-            
+
             in case c of
             -- %C: century (all but the last two digits of the year), 00 - 99
             'C' -> do
@@ -380,7 +380,7 @@ instance ParseTime Day where
             'm' -> do
                 raw <- ra
                 a <- clipValid 1 12 raw
-                return [YearMonth a] 
+                return [YearMonth a]
             -- %d: day of month, leading 0 as needed, 01 - 31
             'd' -> do
                 raw <- ra
@@ -473,7 +473,7 @@ instance ParseTime TimeOfDay where
         f t@(TimeOfDay h m s) (c,x) = let
             ra :: (Read a) => Maybe a
             ra = readMaybe x
-            
+
             getAmPm = let
                 upx = up x
                 (amStr,pmStr) = amPm l
@@ -482,7 +482,7 @@ instance ParseTime TimeOfDay where
                     else if upx == pmStr
                     then Just $ TimeOfDay (if h < 12 then h + 12 else h) m s
                     else Nothing
-            
+
             in case c of
                 'P' -> getAmPm
                 'p' -> getAmPm
@@ -511,7 +511,7 @@ instance ParseTime TimeOfDay where
                     ps <- readMaybe $ take 12 $ rpad 12 '0' $ drop 1 x
                     return $ TimeOfDay h m (mkPico (truncate s) ps)
                 _   -> Just t
-                  
+
         in mfoldl f (Just midnight)
 
 rpad :: Int -> a -> [a] -> [a]
@@ -544,7 +544,7 @@ getMilZone c = let
 
 getKnownTimeZone :: TimeLocale -> String -> Maybe TimeZone
 getKnownTimeZone locale x = find (\tz -> up x == timeZoneName tz) (knownTimeZones locale)
-   
+
 instance ParseTime TimeZone where
     buildTime l = let
         f (TimeZone _ dst name) ('z',x) | Just offset <- readTzOffset x = TimeZone offset dst name
index d4a96ae..6626bc1 100644 (file)
@@ -23,7 +23,7 @@ checkDay encodeDay decodeDay decodeDayValid day = let
           then unwords [show day, "->", show st, "->", show mday']
           else ""
     in a ++ b
-        
+
 checkers :: [Day -> String]
 checkers
   = [ checkDay toOrdinalDate (\(y,d) -> fromOrdinalDate y d) (\(y,d) -> fromOrdinalDateValid y d)
index 514582d..7683f0b 100644 (file)
@@ -25,13 +25,13 @@ testCal :: String
 testCal
   = concat
         -- days around 1 BCE/1 CE
-      [ concatMap showCal [-678950 .. -678930]    
+      [ concatMap showCal [-678950 .. -678930]
 
         -- days around 1000 CE
-      , concatMap showCal [-313710 .. -313690]    
+      , concatMap showCal [-313710 .. -313690]
 
         -- days around MJD zero
-      , concatMap showCal [-30..30]    
+      , concatMap showCal [-30..30]
       , showCal 40000
       , showCal 50000