@@ -546,8 +546,8 @@ caseDebugRequestBody = do
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)
548548 -- the time cannot be known, so match around it
549− postOutput = ("POST / :: \nStatus: 200 OK. 0.00", "s. /\n")
550− getOutput params' = ("GET /location :: \nGET " <> T.pack (show params') <> "\nStatus: 200 OK. 0.00", "s. /location\n")
549+ postOutput = ("POST / :: \nStatus: 200 OK. 0", "s. /\n")
550+ getOutput params' = ("GET /location :: \nGET " <> T.pack (show params') <> "\nStatus: 200 OK. 0", "s. /location\n")
551551
552552 debugApp (beginning, ending) req = do
553553 iactual <- liftIO $ I.newIORef mempty