X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FFormat%2FRFC733.hs;h=58dec8dfde636aed9b79bd24eb0335df331c0ab3;hp=e800310e77976905298800e28c2ff8ae6699e5aa;hb=feaeeec;hpb=c8df2ef29fb3e1141a2480a0ae834386bc235fc5

diff --git a/Data/Time/Format/RFC733.hs b/Data/Time/Format/RFC733.hs
index e800310..58dec8d 100644
--- a/Data/Time/Format/RFC733.hs
+++ b/Data/Time/Format/RFC733.hs
@@ -46,6 +46,7 @@
 -- >               | ("+" | "-") 4DIGIT ; Local diff: HHMM
 module Data.Time.Format.RFC733
     ( RFC733
+    , rfc733
     , rfc733DateAndTime
     )
     where
@@ -55,6 +56,7 @@ import qualified Data.Ascii as A
 import Data.Attoparsec.Char8
 import Data.Convertible.Base
 import Data.Monoid.Unicode
+import Data.Proxy
 import Data.Tagged
 import Data.Time
 import Data.Time.Calendar.WeekDate
@@ -69,6 +71,12 @@ import Prelude.Unicode
 -- Tagged "Sunday, 06-Nov-1994 08:49:37 GMT"
 data RFC733
 
+-- |The proxy for conversions between RFC 733 date and time strings
+-- and 'ZonedTime'.
+rfc733 ∷ Proxy RFC733
+{-# INLINE CONLIKE rfc733 #-}
+rfc733 = Proxy
+
 instance ConvertSuccess ZonedTime (Tagged RFC733 Ascii) where
     {-# INLINE convertSuccess #-}
     convertSuccess = (A.fromAsciiBuilder <$>) ∘ cs