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