Cosmetic changes suggested by hlint.

[time-http.git] / Data / Time / HTTP / Parsec.hs

diff --git a/Data/Time/HTTP/Parsec.hs b/Data/Time/HTTP/Parsec.hs
index 03bd54cb28aab975fc526fccafe8870538eb76ef..6ddca7e982cbdcf8d2b6ea2f81b5737e4808e444 100644 (file)
--- a/Data/Time/HTTP/Parsec.hs
+++ b/Data/Time/HTTP/Parsec.hs
@@ -11,10 +11,11 @@ import Data.Time.RFC733.Parsec
 import Data.Time.Asctime.Parsec
 import Text.Parsec
 
-
+-- |This is a parsec parser for date and time formats allowed in
+-- HTTP\/1.1 (RFC 2616).
 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
              ]