X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FFormat%2FRFC822.hs;h=0d8fcacdacae3b7db0546fcc2498677fbb68803a;hp=803d040fb901f65df3f1f7dc755c86cdff1b13f2;hb=feaeeec;hpb=c8df2ef29fb3e1141a2480a0ae834386bc235fc5

diff --git a/Data/Time/Format/RFC822.hs b/Data/Time/Format/RFC822.hs
index 803d040..0d8fcac 100644
--- a/Data/Time/Format/RFC822.hs
+++ b/Data/Time/Format/RFC822.hs
@@ -1,3 +1,6 @@
+{-# LANGUAGE
+    UnicodeSyntax
+  #-}
 -- |This module provides functions to parse and format RFC 822 date
 -- and time strings (<http://tools.ietf.org/html/rfc822#section-5>).
 --
@@ -29,7 +32,15 @@
 -- >               | ("+" | "-") 4DIGIT ; Local diff: HHMM
 module Data.Time.Format.RFC822
     ( RFC822
+    , rfc822
     , rfc822DateAndTime
     )
     where
+import Data.Proxy
 import Data.Time.Format.RFC822.Internal
+
+-- |The proxy for conversions between RFC 822 date and time strings
+-- and 'ZonedTime'.
+rfc822 ∷ Proxy RFC822
+{-# INLINE CONLIKE rfc822 #-}
+rfc822 = Proxy