ghci> :set -XOverloadedStrings ghci> import qualified Data.Map as M ghci> buildRequest $ delete "/foo/bar" M.empty DELETE /foo/bar HTTP/1.1 host: localhost sn="localhost" c=127.0.0.1:60000 s=127.0.0.1:8080 ctx=/ clen=n/a
ghci> import qualified Snap.Types.Headers as H ghci> deleteHeader "Host" $ setHeader "Host" "localhost" H.empty H {unH = []}
ghci> :set -XOverloadedStrings ghci> let cookie = Cookie "name" "value" Nothing Nothing Nothing False False ghci> let rsp = addResponseCookie cookie emptyResponse ghci> getResponseCookie "name" rsp Just (Cookie {cookieName = "name", cookieValue = "value", ...}) ghci> getResponseCookie "name" $ deleteResponseCookie "name" rsp Nothing