从happstack-lite API获取请求

Question

我如何从happstack-lite API获取请求数据？我正在尝试获取客户端的IP地址。从我可以告诉它在Request :: rqPeer中，我很困惑尝试深入了解happstack API的monadic层。

Answer 1

您可以在任何ServerMonad中使用askRq来获取请求，您可以使用记录语法对其进行模式匹配以获取客户端主机名：

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