typeable/wai
1
0
Fork 0
mirror of https://github.com/typeable/wai.git synced 2025-01-01 02:38:45 +03:00
Code Issues Projects Releases Wiki Activity

Fix some tests

Browse Source
This commit is contained in:
Michael Snoyman 2014-03-06 15:55:40 +02:00
parent c6da9d0fbc
commit dc2fd07b4a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
wai-extra/test/WaiExtraTest.hs
View File

@ -545,8 +545,8 @@ caseDebugRequestBody = do
where
params = [("foo", "bar"), ("baz", "bin")]
-- FIXME change back once we include post parameter output in logging postOutput = T.pack $ "POST \nAccept: \nPOST " ++ (show params)
postOutput = T.pack $ "POST / | \nStatus: 200 OK. /\n"
getOutput params' = T.pack $ "GET /location | \nGET " ++ show params' ++ "\nStatus: 200 OK. /location\n"
postOutput = T.pack $ "POST / :: \nStatus: 200 OK. /\n"
getOutput params' = T.pack $ "GET /location :: \nGET " ++ show params' ++ "\nStatus: 200 OK. /location\n"
debugApp output' req = do
iactual <- liftIO $ I.newIORef mempty