将请求信息放入Haskell webserver的响应中

{-# LANGUAGE OverloadedStrings #-}
import Yesod

data App = App

mkYesod "App" [parseRoutes|
/ HomeR GET
|]

instance Yesod App

getHomeR :: Handler Html
getHomeR = do
    request <- waiRequest
    let requestInfo = getRequestInfo request
    defaultLayout $ do
        setTitle "Request Info"
        [whamlet|
            <h1>Request Information
            <p>#{requestInfo}
        |]

getRequestInfo :: Request -> String
getRequestInfo request = -- 构造请求信息的函数实现
    "Request Method: " ++ show (requestMethod request) ++ "<br>" ++
    "Request Headers: " ++ show (requestHeaders request) ++ "<br>" ++
    "Request Path: " ++ show (pathInfo request) ++ "<br>" ++
    -- 其他请求信息

main :: IO ()
main = warp 3000 App