Permalink
Browse files

test/Util.hs : Clean up imports.

  • Loading branch information...
erikd committed Feb 8, 2012
1 parent 3e8d5ba commit 7150996c239ec76e8b250b72c868dd1b6caeff4a
Showing with 8 additions and 10 deletions.
  1. +8 −10 test/Util.hs
View
@@ -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

0 comments on commit 7150996

Please sign in to comment.