仆人cookie最小示例

【问题标题】：Servant cookie minimal example仆人cookie最小示例
【发布时间】：2018-03-17 16:33:31
【问题描述】：

谁能给我提供一个带有servant-server、wai、warp等的cookie的最小示例？

例如，一个带有单个字段“语言”的 cookie，其值为“en”

有没有像 happstack-lite addCookies 和 lookCookieValue 这样的简单方法？

【问题讨论】：

【解决方案1】：

要编写 cookie：

Get '[JSON] (Headers '[Header "Set-Cookie" SetCookie] ...)

SetCookie 在最近的http-api-data 中有ToHttpApiData 实例，所以这行得通。

为了读取我自己创建的newtype cookie，Cookies is a type alias in cookie 所以我们不能直接为其编写实例。

newtype Cookies' = Cookies' Cookies -- type Cookies = [(BS.ByteString, BS.ByteString)]

instance FromHttpApiData Cookies' where
  parseHeader = return . Cookies' . parseCookies
  parseQueryParam = return . Cookies' . parseCookies . TE.encodeUtf8

【讨论】：