Finished docs

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

diff --git a/Data/Time/RFC733/Parsec.hs b/Data/Time/RFC733/Parsec.hs
index 6746a3ed5ec8c4545e5fc018e03eff3ea60ccc6c..f266193a66a01fe63f470c51c2311a33bc00de35 100644 (file)
--- a/Data/Time/RFC733/Parsec.hs
+++ b/Data/Time/RFC733/Parsec.hs
@@ -11,7 +11,7 @@ import Data.Time.Calendar.WeekDate
 import Data.Time.HTTP.Common
 import Text.Parsec
 
-
+-- |This is a parsec parser for RFC 733 date and time strings.
 rfc733DateAndTime :: Stream s m Char => ParsecT s u m ZonedTime
 rfc733DateAndTime = dateTime
 
@@ -48,7 +48,7 @@ date = do day   <- read2
 
 time :: Stream s m Char => ParsecT s u m (TimeOfDay, TimeZone)
 time = do tod <- hour
-          _   <- char ' '
+          _   <- char '-' <|> char ' '
           tz  <- zone
           return (tod, tz)