X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponse.hs;h=8adf88a27ba207597d00d26403e440cd02b80358;hp=fd949fe9af09e8af5997b5ccf2634e5865777743;hb=3d017dd65ddede9a11c5b7a34a91e04340e67bc4;hpb=e1e74c8f81ccbc57bf5a09987b0a9dd42648f020

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index fd949fe..8adf88a 100644
--- 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"           #)