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 -> SessionEmbeddings
instance HasSessionEmbeddings SessionEmbeddings where
getSessionEmbeddings :: SessionEmbeddings -> SessionEmbeddings
getSessionEmbeddings = SessionEmbeddings -> SessionEmbeddings
forall a. a -> a
id