@@ -425,9 +425,9 @@ caseDebugRequestBody = do
425425 where
426426 params = [("foo", "bar"), ("baz", "bin")]
427427 -- FIXME change back once we include post parameter output in logging postOutput = T.pack $ "POST \nAccept: \nPOST " ++ (show params)
428− postOutput = T.pack $ "POST / Accept: "
428+ postOutput = T.pack $ "POST / Accept: \n"
429429 -- FIXME getOutput _qs = T.pack $ "GET /location" ++ "\nAccept: \nGET " ++ (show params) -- \nAccept: \n" ++ (show params)
430− getOutput _qs = T.pack $ "GET /location?foo=bar&baz=bin Accept: "
430+ getOutput _qs = T.pack $ "GET /location?foo=bar&baz=bin Accept: \n"
431431
432432 debugApp output' = logHandle (\t -> liftIO $ assertEqual "debug" output t) $ \_req -> do
433433 return $ responseLBS status200 [ ] ""