@@ -158,7 +158,7 @@ caseParseRequestBody =
158158 let content1 = "foo=bar&baz=bin"
159159 let ctype1 = "application/x-www-form-urlencoded"
160160 result1 <- parseRequestBody' lbsBackEnd $ toRequest ctype1 content1
161− liftIO $ assertEqual "parsing post x-www-form-urlencoded"
161+ assertEqual "parsing post x-www-form-urlencoded"
162162 (map (S8.pack *** S8.pack) [("foo", "bar"), ("baz", "bin")], [])
163163 result1
164164
@@ -173,7 +173,7 @@ caseParseRequestBody =
173173 [(S8.pack "document", FileInfo (S8.pack "b.txt") textPlain $ L8.pack
174174 "This is a file.\nIt has two lines.")]
175175 let expected2 = (map (S8.pack *** S8.pack) expectedsmap2, expectedfile2)
176− liftIO $ assertEqual "parsing post multipart/form-data"
176+ assertEqual "parsing post multipart/form-data"
177177 expected2
178178 result2
179179
@@ -183,24 +183,24 @@ caseParseRequestBody =
183183 let expectedfile3 = [(S8.pack "yaml", FileInfo (S8.pack "README") (S8.pack "application/octet-stream") $
184184 L8.pack "Photo blog using Hack.\n")]
185185 let expected3 = (expectedsmap3, expectedfile3)
186− liftIO $ assertEqual "parsing actual post multipart/form-data"
186+ assertEqual "parsing actual post multipart/form-data"
187187 expected3
188188 result3
189189
190190 result2' <- parseRequestBody' lbsBackEnd $ toRequest' ctype2 content2
191− liftIO $ assertEqual "parsing post multipart/form-data 2"
191+ assertEqual "parsing post multipart/form-data 2"
192192 expected2
193193 result2'
194194
195195 result3' <- parseRequestBody' lbsBackEnd $ toRequest' ctype3 content3
196− liftIO $ assertEqual "parsing actual post multipart/form-data 2"
196+ assertEqual "parsing actual post multipart/form-data 2"
197197 expected3
198198 result3'
199199
200200caseMultipartPlus :: Assertion
201201caseMultipartPlus = do
202202 result <- parseRequestBody' lbsBackEnd $ toRequest ctype content
203− liftIO $ result @?= ([("email", "has+plus")], [])
203+ result @?= ([("email", "has+plus")], [])
204204 where
205205 content = S8.pack $
206206 "--AaB03x\n" ++
@@ -213,7 +213,7 @@ caseMultipartPlus = do
213213caseMultipartAttrs :: Assertion
214214caseMultipartAttrs = do
215215 result <- parseRequestBody' lbsBackEnd $ toRequest ctype content
216− liftIO $ result @?= ([("email", "has+plus")], [])
216+ result @?= ([("email", "has+plus")], [])
217217 where
218218 content = S8.pack $
219219 "--AaB03x\n" ++
@@ -227,7 +227,7 @@ caseUrlEncPlus :: Assertion
227227caseUrlEncPlus = do
228228 result <- runResourceT $ withInternalState $ \state ->
229229 parseRequestBody' (tempFileBackEnd state) $ toRequest ctype content
230− liftIO $ result @?= ([("email", "has+plus")], [])
230+ result @?= ([("email", "has+plus")], [])
231231 where
232232 content = S8.pack $ "email=has%2Bplus"
233233 ctype = "application/x-www-form-urlencoded"