From: PHO <pho@cielonegro.org>
Date: Wed, 14 Dec 2011 14:03:07 +0000 (+0900)
Subject: Done.
X-Git-Tag: RELEASE-0.3~1^2~2
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=c8df2ef29fb3e1141a2480a0ae834386bc235fc5;p=time-http.git

Done.

Ditz-issue: 0a3272772c73cf31486eb2b6691fa38232d3c4c5
---

diff --git a/Data/Time/Format/HTTP.hs b/Data/Time/Format/HTTP.hs
index 7e30cbf..2dd3aad 100644
--- 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 970dff1..6d81035 100644
--- 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 f7be4fa..ae51272 100644
--- 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: