仆人饼干最小示例

Question

谁能给我提供一个带有仆人服务器、wai、warp 等的 cookie 的最小示例？

例如，具有单个字段"语言"且值为"en"的 cookie

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

Answer 1

要编写 cookie：

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

SetCookie最近http-api-data ToHttpApiData实例，所以这很好用。

为了读取cookie，我自己制作newtype，因为Cookies是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