module Web.Apiary.Cookie
(
setCookie
, deleteCookie
, cookie
, cookie'
, module Web.Cookie
) where
import Web.Apiary.Wai
import Web.Apiary
import Web.Cookie (SetCookie(..))
import qualified Web.Cookie as Cookie
import Data.Apiary.Param
import Control.Monad.Apiary.Filter
import Data.Maybe
import Data.Time
import Data.Monoid
import Data.Apiary.Compat
import Blaze.ByteString.Builder
import Text.Blaze.Html
import qualified Data.ByteString as S
import qualified Data.ByteString.Char8 as SC
cond :: (a -> Bool) -> (a -> b) -> (a -> b) -> a -> b
cond p t f a = if p a then t a else f a
cookie :: (Strategy w, Monad actM, NotMember k prms, KnownSymbol k)
=> proxy k
-> w S.ByteString
-> ApiaryT exts (SNext w k S.ByteString prms) actM m ()
-> ApiaryT exts prms actM m ()
cookie k p = function (DocPrecondition $ toHtml (symbolVal k) <> " cookie required") $ \l r ->
strategy p k (map (Just . snd) . filter ((SC.pack (symbolVal k) ==) . fst) $ cookie' r) l
cookie' :: Request -> [(S.ByteString, S.ByteString)]
cookie' =
concatMap Cookie.parseCookies .
mapMaybe (cond (("cookie" ==) . fst) (Just . snd) (const Nothing)) .
requestHeaders
deleteCookie :: Monad m => S.ByteString -> ActionT exts prms m ()
deleteCookie k = setCookie def { setCookieName = k
, setCookieExpires = Just $ UTCTime (ModifiedJulianDay 0) 0
, setCookieMaxAge = Just 0
}
setCookie :: Monad m => SetCookie -> ActionT exts prms m ()
setCookie =
addHeader "set-cookie" . toByteString . Cookie.renderSetCookie