@@ -96,7 +96,7 @@ caseParseHttpAccept = do
9696 expected = ["text/html", "text/x-c", "text/x-dvi", "text/plain"]
9797 expected @=? parseHttpAccept input
9898
99−parseRequestBody' :: Sink ([S8.ByteString] -> [S8.ByteString]) L.ByteString
99+parseRequestBody' :: BackEnd L.ByteString
100100 -> SRequest
101101 -> C.ResourceT IO ([(S.ByteString, S.ByteString)], [(S.ByteString, FileInfo L.ByteString)])
102102parseRequestBody' sink (SRequest req bod) =
@@ -126,13 +126,13 @@ caseParseRequestBody =
126126 t = do
127127 let content1 = "foo=bar&baz=bin"
128128 let ctype1 = "application/x-www-form-urlencoded"
129− result1 <- parseRequestBody' lbsSink $ toRequest ctype1 content1
129+ result1 <- parseRequestBody' lbsBackEnd $ toRequest ctype1 content1
130130 liftIO $ assertEqual "parsing post x-www-form-urlencoded"
131131 (map (S8.pack *** S8.pack) [("foo", "bar"), ("baz", "bin")], [])
132132 result1
133133
134134 let ctype2 = "multipart/form-data; boundary=AaB03x"
135− result2 <- parseRequestBody' lbsSink $ toRequest ctype2 content2
135+ result2 <- parseRequestBody' lbsBackEnd $ toRequest ctype2 content2
136136 let expectedsmap2 =
137137 [ ("title", "A File")
138138 , ("summary", "This is my file\nfile test")
@@ -147,7 +147,7 @@ caseParseRequestBody =
147147 result2
148148
149149 let ctype3 = "multipart/form-data; boundary=----WebKitFormBoundaryB1pWXPZ6lNr8RiLh"
150− result3 <- parseRequestBody' lbsSink $ toRequest ctype3 content3
150+ result3 <- parseRequestBody' lbsBackEnd $ toRequest ctype3 content3
151151 let expectedsmap3 = []
152152 let expectedfile3 = [(S8.pack "yaml", FileInfo (S8.pack "README") (S8.pack "application/octet-stream") $
153153 L8.pack "Photo blog using Hack.\n")]
@@ -156,12 +156,12 @@ caseParseRequestBody =
156156 expected3
157157 result3
158158
159− result2' <- parseRequestBody' lbsSink $ toRequest' ctype2 content2
159+ result2' <- parseRequestBody' lbsBackEnd $ toRequest' ctype2 content2
160160 liftIO $ assertEqual "parsing post multipart/form-data 2"
161161 expected2
162162 result2'
163163
164− result3' <- parseRequestBody' lbsSink $ toRequest' ctype3 content3
164+ result3' <- parseRequestBody' lbsBackEnd $ toRequest' ctype3 content3
165165 liftIO $ assertEqual "parsing actual post multipart/form-data 2"
166166 expected3
167167 result3'
@@ -400,7 +400,7 @@ caseDalvikMultipart = do
400400 { requestHeaders = headers
401401 }
402402 (params, files) <- C.runResourceT $ sourceFile "test/requests/dalvik-request"
403− C.$$ parseRequestBody lbsSink request'
403+ C.$$ parseRequestBody lbsBackEnd request'
404404 lookup "scannedTime" params @?= Just "1.298590056748E9"
405405 lookup "geoLong" params @?= Just "0"
406406 lookup "geoLat" params @?= Just "0"