@@ -430,9 +430,9 @@ caseDebugRequestBody = do
430430 where
431431 params = [("foo", "bar"), ("baz", "bin")]
432432 -- FIXME change back once we include post parameter output in logging postOutput = T.pack $ "POST \nAccept: \nPOST " ++ (show params)
433− postOutput = T.pack $ "POST / Accept: \n"
433+ postOutput = T.pack $ "POST / Accept: \nStatus: 200 OK"
434434 -- FIXME getOutput _qs = T.pack $ "GET /location" ++ "\nAccept: \nGET " ++ (show params) -- \nAccept: \n" ++ (show params)
435− getOutput _qs = T.pack $ "GET /location?foo=bar&baz=bin Accept: \n"
435+ getOutput _qs = T.pack $ "GET /location?foo=bar&baz=bin Accept: \nStatus: 200 OK"
436436
437437 debugApp output' = logCallback (\t -> liftIO $ assertEqual "debug" output t) $ \_req -> do
438438 return $ responseLBS status200 [ ] ""