Exodus to GHC 6.8.1

[Lucu.git] / Network / HTTP / Lucu / Response.hs

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index fd949fe9af09e8af5997b5ccf2634e5865777743..8adf88a27ba207597d00d26403e440cd02b80358 100644 (file)
--- a/Network/HTTP/Lucu/Response.hs
+++ b/Network/HTTP/Lucu/Response.hs
@@ -15,8 +15,8 @@ module Network.HTTP.Lucu.Response
     )
     where
 
-import           Data.ByteString.Base (ByteString)
-import qualified Data.ByteString.Char8 as C8
+import qualified Data.ByteString as Strict (ByteString)
+import qualified Data.ByteString.Char8 as C8 hiding (ByteString)
 import           Data.Dynamic
 import           Network.HTTP.Lucu.Format
 import           Network.HTTP.Lucu.Headers
@@ -148,7 +148,7 @@ doesMeet p sc = case statusCode sc of
 
 -- |@'statusCode' sc@ returns an unboxed tuple of numeric and textual
 -- representation of @sc@.
-statusCode :: StatusCode -> (# Int, ByteString #)
+statusCode :: StatusCode -> (# Int, Strict.ByteString #)
 
 statusCode Continue                    = (# 100, C8.pack "Continue"                      #)
 statusCode SwitchingProtocols          = (# 101, C8.pack "Switching Protocols"           #)