From dc2fd07b4a4eac14c069567dcb3fbf93f6b65957 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 6 Mar 2014 15:55:40 +0200 Subject: [PATCH] Fix some tests --- wai-extra/test/WaiExtraTest.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wai-extra/test/WaiExtraTest.hs b/wai-extra/test/WaiExtraTest.hs index 2b65b166..9761e509 100644 --- a/wai-extra/test/WaiExtraTest.hs +++ b/wai-extra/test/WaiExtraTest.hs @@ -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