Done.

Ditz-issue: 0a3272772c73cf31486eb2b6691fa38232d3c4c5

diff --git a/Data/Time/Format/HTTP.hs b/Data/Time/Format/HTTP.hs
index 7e30cbfc48138e681bdb1aec65d944a2fbea2545..2dd3aad7e93db660cc6efc2e0690a0029480999e 100644 (file)
--- a/Data/Time/Format/HTTP.hs
+++ b/Data/Time/Format/HTTP.hs
@@ -54,6 +54,7 @@ import Data.Ascii (Ascii, AsciiBuilder)
 import qualified Data.Ascii as A
 import Data.Attoparsec.Char8
 import Data.Convertible.Base
+import Data.Proxy
 import Data.Tagged
 import Data.Time
 import Data.Time.Format.Asctime
@@ -99,11 +100,12 @@ httpDateAndTime
              ]
 
 toAsciiBuilder ∷ UTCTime → AsciiBuilder
-toAsciiBuilder = untag' ∘ cs ∘ ut2zt
+{-# INLINE toAsciiBuilder #-}
+toAsciiBuilder = flip proxy rfc1123 ∘ cs ∘ ut2zt
     where
-      untag' ∷ Tagged RFC1123 AsciiBuilder → AsciiBuilder
-      {-# INLINE CONLIKE untag' #-}
-      untag' = untag
+      rfc1123 ∷ Proxy RFC1123
+      {-# INLINE CONLIKE rfc1123 #-}
+      rfc1123 = Proxy
 
       ut2zt ∷ UTCTime → ZonedTime
       {-# INLINE ut2zt #-}

diff --git a/Data/Time/Format/RFC1123.hs b/Data/Time/Format/RFC1123.hs
index 970dff1bf434b47487ea87a248fb47b57c223bc6..6d81035b61aafdd9fa7732b96459fba921a0e975 100644 (file)
--- a/Data/Time/Format/RFC1123.hs
+++ b/Data/Time/Format/RFC1123.hs
@@ -8,8 +8,8 @@
 -- |This module provides functions to parse and format RFC 1123 date
 -- and time strings (<http://tools.ietf.org/html/rfc1123#page-55>).
 --
--- The format is basically same as RFC 822, but the syntax for @date@
--- is changed from:
+-- The format is basically the same as RFC 822, but the syntax for
+-- @date@ is changed from:
 --
 -- > year ::= 2DIGIT
 --

diff --git a/bugs/issue-0a3272772c73cf31486eb2b6691fa38232d3c4c5.yaml b/bugs/issue-0a3272772c73cf31486eb2b6691fa38232d3c4c5.yaml
index f7be4fa380b85808f2146f99b2457a69a639812d..ae512726cc83521c5082dc82e9855ad9f490e617 100644 (file)
--- a/bugs/issue-0a3272772c73cf31486eb2b6691fa38232d3c4c5.yaml
+++ b/bugs/issue-0a3272772c73cf31486eb2b6691fa38232d3c4c5.yaml
@@ -5,8 +5,8 @@ type: :task
 component: time-http
 release: time-http-0.3
 reporter: PHO <pho@cielonegro.org>
-status: :in_progress
-disposition: 
+status: :closed
+disposition: :fixed
 creation_time: 2011-12-01 01:58:17.790699 Z
 references: []
 
@@ -20,4 +20,8 @@ log_events:
   - PHO <pho@cielonegro.org>
   - changed status from unstarted to in_progress
   - ""
+- - 2011-12-14 13:57:46.566967 Z
+  - PHO <pho@cielonegro.org>
+  - closed with disposition fixed
+  - Done.
 git_branch: