time-http 0.1 → 0.1.0.1
raw patch · 3 files changed
+10/−10 lines, 3 filesdep ~basedep ~parsecdep ~time
Dependency ranges changed: base, parsec, time
Files
- Data/Time/HTTP/Common.hs +4/−4
- Data/Time/HTTP/Parsec.hs +1/−1
- time-http.cabal +5/−5
Data/Time/HTTP/Common.hs view
@@ -164,13 +164,13 @@ show4 i | i >= 0 && i < 10 = "000" ++ show i | i >= 0 && i < 100 = "00" ++ show i- | i >= 0 && i < 1000 = "0" ++ show i+ | i >= 0 && i < 1000 = '0' : show i | i >= 0 && i < 10000 = show i | otherwise = error ("show4: the integer i must satisfy 0 <= i < 10000: " ++ show i) show2 :: Integral i => i -> String show2 i- | i >= 0 && i < 10 = "0" ++ show i+ | i >= 0 && i < 10 = '0' : show i | i >= 0 && i < 100 = show i | otherwise = error ("show2: the integer i must satisfy 0 <= i < 100: " ++ show i) @@ -212,7 +212,7 @@ = let h = offset `div` 60 m = offset - h * 60 in- concat [show2 h, show2 m]+ show2 h ++ show2 m read4digitsTZ :: Stream s m Char => ParsecT s u m TimeZone read4digitsTZ@@ -222,7 +222,7 @@ hour <- read2 minute <- read2 let tz = TimeZone {- timeZoneMinutes = (sign * (hour * 60 + minute))+ timeZoneMinutes = sign * (hour * 60 + minute) , timeZoneSummerOnly = False , timeZoneName = timeZoneOffsetString tz }
Data/Time/HTTP/Parsec.hs view
@@ -17,5 +17,5 @@ rfc2616DateAndTime = choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime , liftM zonedTimeToUTC $ try rfc733DateAndTime- , liftM (localTimeToUTC utc) $ asctime+ , liftM (localTimeToUTC utc) asctime ]
time-http.cabal view
@@ -1,6 +1,6 @@ Name: time-http-Version: 0.1-Synopsis: Parse and format HTTP/1.1 Date and Time string+Version: 0.1.0.1+Synopsis: Parse and format HTTP/1.1 Date and Time strings Description: This package provides functionalities to parse and format various Date and Time formats allowed in HTTP\/1.1 (RFC 2616).@@ -36,9 +36,9 @@ Data.Time.HTTP.Common Build-depends:- base == 4.2.*,- parsec == 3.0.*,- time == 1.1.*+ base == 4.3.*,+ parsec == 3.1.*,+ time == 1.2.* Extensions: FlexibleContexts