Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

test/Util.hs : Clean up imports.

  • Loading branch information...
commit 7150996c239ec76e8b250b72c868dd1b6caeff4a 1 parent 3e8d5ba
@erikd authored
Showing with 8 additions and 10 deletions.
  1. +8 −10 test/Util.hs
View
18 test/Util.hs
@@ -9,16 +9,14 @@
module Util where
-import Network.HTTP.Types
+import Data.ByteString (ByteString)
+import Data.String (fromString)
-import Data.ByteString (ByteString)
-import Data.String (fromString)
-
-import qualified Data.ByteString.Char8 as BS
-import qualified Data.CaseInsensitive as CI
-import qualified Network.HTTP.Conduit as HC
-import qualified Network.HTTP.Types as HT
-import qualified Network.Wai as Wai
+import qualified Data.ByteString.Char8 as BS
+import qualified Data.CaseInsensitive as CI
+import qualified Network.HTTP.Conduit as HC
+import qualified Network.HTTP.Types as HT
+import qualified Network.Wai as Wai
dumpWaiRequest :: Wai.Request -> IO ()
@@ -66,7 +64,7 @@ dumpHttpResponse s rh = do
BS.putStr $ BS.concat $ map (\ (f, v) -> BS.concat [ " ", CI.original f, ": ", v, "\n" ]) rh
-headerShow :: [Header] -> ByteString
+headerShow :: [HT.Header] -> ByteString
headerShow headers =
BS.concat $ map hShow headers
where
Please sign in to comment.
Something went wrong with that request. Please try again.