X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FHTTP%2FParsec.hs;h=6ddca7e982cbdcf8d2b6ea2f81b5737e4808e444;hp=117837efdc8ed119e565d21012b1e8592d54f606;hb=ef4dedbd58f5a24f6a737a9e5d6a506c6d401f43;hpb=1c1cfb882a983be021155b3a4537cbc72030a70b diff --git a/Data/Time/HTTP/Parsec.hs b/Data/Time/HTTP/Parsec.hs index 117837e..6ddca7e 100644 --- a/Data/Time/HTTP/Parsec.hs +++ b/Data/Time/HTTP/Parsec.hs @@ -17,5 +17,5 @@ rfc2616DateAndTime :: Stream s m Char => ParsecT s u m UTCTime rfc2616DateAndTime = choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime , liftM zonedTimeToUTC $ try rfc733DateAndTime - , liftM (localTimeToUTC utc) $ asctime + , liftM (localTimeToUTC utc) asctime ]