@@ -25,7 +25,6 @@ import Data.Enumerator.Binary (enumFile)
2525import Control.Monad.IO.Class (liftIO)
2626import Data.Maybe (fromMaybe)
2727import Network.HTTP.Types (parseSimpleQuery, status200)
28−import qualified Data.Ascii as A
2928
3029main :: IO ()
3130main = defaultMain [testSuite]
@@ -157,12 +156,12 @@ caseParseRequestBody = run_ t where
157156 expected3
158157 result3'
159158
160−toRequest :: A.Ascii -> S8.ByteString -> SRequest
159+toRequest :: S8.ByteString -> S8.ByteString -> SRequest
161160toRequest ctype content = SRequest (Request
162161 { requestHeaders = [("Content-Type", ctype)]
163162 }) (L.fromChunks [content])
164163
165−toRequest' :: A.Ascii -> S8.ByteString -> SRequest
164+toRequest' :: S8.ByteString -> S8.ByteString -> SRequest
166165toRequest' ctype content = SRequest (Request
167166 { requestHeaders = [("Content-Type", ctype)]
168167 }) (L.fromChunks $ map S.singleton $ S.unpack content)