X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FHTTP%2FInternal.hs;h=6e0753dc1580bb49ed0890022988a3d98d25905b;hp=e94567076420449fb0c22e27b7fd8bb4f5aef3ad;hb=02b5cc7;hpb=98132c09a6383d8d8447e0307207b933f7240f5f

diff --git a/Data/Time/HTTP/Internal.hs b/Data/Time/HTTP/Internal.hs
index e945670..6e0753d 100644
--- a/Data/Time/HTTP/Internal.hs
+++ b/Data/Time/HTTP/Internal.hs
@@ -12,8 +12,8 @@ import Data.Ascii (AsciiBuilder)
 import Data.Attoparsec.Char8
 import Data.Time
 import qualified Data.Time.RFC1123.Internal as RFC1123
-import qualified Data.Time.RFC733.Internal  as RFC733
-import qualified Data.Time.Asctime.Internal as Asctime
+import Data.Time.RFC733
+import Data.Time.Asctime
 import Prelude.Unicode
 
 -- |Parse a date and time string in any formats allowed by HTTP\/1.1
@@ -21,8 +21,8 @@ import Prelude.Unicode
 httpDateAndTime ∷ Parser UTCTime
 httpDateAndTime
     = choice [ zonedTimeToUTC     <$> try RFC1123.rfc1123DateAndTime
-             , zonedTimeToUTC     <$> try RFC733.rfc733DateAndTime
-             , localTimeToUTC utc <$> Asctime.asctime
+             , zonedTimeToUTC     <$> try rfc733DateAndTime
+             , localTimeToUTC utc <$> asctime
              ]
 
 -- |Convert a 'UTCTime' to RFC 1123 date and time string.