仆人 cookie 最小示例

Question

任何人都可以向我提供一个带有 servant-server、wai、warp 等的 cookie 的最小示例吗？

例如，具有单个字段 "language" 且值为 "en"

的 cookie

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

Answer 1

写入cookies：

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

SetCookie 最近 http-api-data 有 ToHttpApiData 个实例，所以这很有效。

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

仆人 cookie 最小示例

Servant cookie minimal example

haskell

cookies

servant