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