從happstack-lite API獲取請求API

Question

如何從happstack-lite API獲取請求數據？我正在嘗試獲取客戶端的IP地址。從我可以告訴它在Request :: rqPeer中，我感到困惑，試圖潛入happstack API的monadic層。

Answer 1

您可以使用askRq在任何ServerMonad得到的請求，你能模式匹配上記錄的語法來獲取客戶端的主機名：

do Request {rqPeer = (host,_)} <- askRq 
    ok $ "Your IP: " ++ host