import Data.Time
import Data.Time.Calendar.WeekDate
import Data.Time.HTTP.Common
+import Data.Time.RFC822.Internal hiding (toAsciiBuilder)
-- |Parse RFC 733 date and time strings.
rfc733DateAndTime ∷ Parser ZonedTime
⊕ show2 (todMin timeOfDay)
⊕ A.toAsciiBuilder ":"
⊕ show2 (floor (todSec timeOfDay) ∷ Int)
- ⊕ A.toAsciiBuilder "-"
- ⊕ show4digitsTZ timeZone
+ ⊕ A.toAsciiBuilder " "
+ ⊕ showRFC822TimeZone timeZone