Tests for Data.Time.Asctime

[time-http.git] / Data / Time / Asctime / Internal.hs

diff --git a/Data/Time/Asctime/Internal.hs b/Data/Time/Asctime/Internal.hs
index f7077596c0a1d7e9a36b1ed642ade35344896d43..1681fc0d281752af5a66775c159fa6923230baa5 100644 (file)
--- a/Data/Time/Asctime/Internal.hs
+++ b/Data/Time/Asctime/Internal.hs
@@ -19,10 +19,10 @@ import Data.Time.HTTP.Common
 -- |Parse an ANSI C's @asctime()@ string.
 asctime ∷ Parser LocalTime
 asctime = do weekDay ← shortWeekDayNameP
 -- |Parse an ANSI C's @asctime()@ string.
 asctime ∷ Parser LocalTime
 asctime = do weekDay ← shortWeekDayNameP

-             _       ← string ", "
+             _       ← char ' '

              month   ← shortMonthNameP
              _       ← char ' '
              month   ← shortMonthNameP
              _       ← char ' '

-             day     ← read2
+             day     ← read2'

              _       ← char ' '
              hour    ← read2
              _       ← char ':'
              _       ← char ' '
              hour    ← read2
              _       ← char ':'


@@ -46,10 +46,10 @@ toAsciiBuilder localTime
           timeOfDay          = localTimeOfDay localTime
       in
         shortWeekDayName week
           timeOfDay          = localTimeOfDay localTime
       in
         shortWeekDayName week

-        ⊕ A.toAsciiBuilder "⊕ "
+        ⊕ A.toAsciiBuilder " "

         ⊕ shortMonthName month
         ⊕ A.toAsciiBuilder " "
         ⊕ shortMonthName month
         ⊕ A.toAsciiBuilder " "

-        ⊕ show2 day
+        ⊕ show2' day

         ⊕ A.toAsciiBuilder " "
         ⊕ show2 (todHour timeOfDay)
         ⊕ A.toAsciiBuilder ":"
         ⊕ A.toAsciiBuilder " "
         ⊕ show2 (todHour timeOfDay)
         ⊕ A.toAsciiBuilder ":"