http-date 0.0.4 → 0.0.5

raw patch · 4 files changed

+8/−8 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Network/HTTP/Date/Formatter.hs +4/−4
• Network/HTTP/Date/Parser.hs +2/−2
• Network/HTTP/Date/Types.hs +1/−1
• http-date.cabal +1/−1

@@ -20,12 +20,12 @@ formatHTTPDate :: HTTPDate -> ByteString formatHTTPDate hd =     unsafeCreate 29 $ \ptr -> do-        cpy3 ptr weekDays (3 * (w - 1))+        cpy3 ptr weekDays (3 * w)         poke (ptr `plusPtr`  3) comma         poke (ptr `plusPtr`  4) spc         int2 (ptr `plusPtr`  5) d         poke (ptr `plusPtr`  7) spc-        cpy3 (ptr `plusPtr`  8) months (3 * (m - 1))+        cpy3 (ptr `plusPtr`  8) months (3 * m)         poke (ptr `plusPtr` 11) spc         int4 (ptr `plusPtr` 12) y         poke (ptr `plusPtr` 16) spc@@ -77,10 +77,10 @@ ----------------------------------------------------------------  months :: ForeignPtr Word8-months = let (PS p _ _) = "JanFebMarAprMayJunJulAugSepOctNovDec" in p+months = let (PS p _ _) = "___JanFebMarAprMayJunJulAugSepOctNovDec" in p  weekDays :: ForeignPtr Word8-weekDays = let (PS p _ _) = "MonTueWedThuFriSatSun" in p+weekDays = let (PS p _ _) = "___MonTueWedThuFriSatSun" in p  ---------------------------------------------------------------- 

@@ -4,8 +4,8 @@  import Control.Applicative import Control.Monad-import Data.Attoparsec-import Data.Attoparsec.Char8+import Data.Attoparsec.ByteString+import Data.Attoparsec.ByteString.Char8 import Data.ByteString import Data.Char import Network.HTTP.Date.Types

@@ -22,7 +22,7 @@   , hdMinute :: !Int   , hdSecond :: !Int   , hdWkday  :: !Int-  } deriving (Eq,Show, Ord)+  } deriving (Eq, Show, Ord)  {-|   A default value for 'HTTPDate'.

@@ -1,5 +1,5 @@ Name:                   http-date-Version:                0.0.4+Version:                0.0.5 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3