module Yesod.Session.Embedding.Options
( SessionEmbeddings (..)
, HasSessionEmbeddings (..)
) where
import Internal.Prelude
import Session.Freeze
import Session.KeyRotation
import Yesod.Session.Embedding.Map
data SessionEmbeddings = SessionEmbeddings
{ SessionEmbeddings -> SessionMapEmbedding KeyRotation
keyRotation :: SessionMapEmbedding KeyRotation
, SessionEmbeddings -> SessionMapEmbedding SessionFreeze
freeze :: SessionMapEmbedding SessionFreeze
}
class HasSessionEmbeddings a where
getSessionEmbeddings :: a -> Maybe SessionEmbeddings
instance HasSessionEmbeddings SessionEmbeddings where
getSessionEmbeddings :: SessionEmbeddings -> Maybe SessionEmbeddings
getSessionEmbeddings SessionEmbeddings
x = SessionEmbeddings -> Maybe SessionEmbeddings
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
pure SessionEmbeddings
x