gamgee-1.1.0: Tool for generating TOTP MFA tokens.

Safe Haskell	None
Language	Haskell2010

Gamgee.Effects.JSONStore

Contents

Effect
Actions
Interpretations

Synopsis

data JSONStore o m a where
- JsonEncode :: o -> JSONStore o m ()
- JsonDecode :: JSONStore o m o
jsonEncode :: forall o r. MemberWithError (JSONStore o) r => o -> Sem r ()
jsonDecode :: forall a r. MemberWithError (JSONStore a) r => Sem r a
runJSONStore :: Member (Error EffError) r => Sem (JSONStore Tokens ': r) a -> Sem (ByteStore ': r) a
configStoreToByteStore :: Member (Error EffError) r => Sem (JSONStore Config ': r) a -> Sem (ByteStore ': r) a

Effect

data JSONStore o m a where Source #

Constructors

JsonEncode :: o -> JSONStore o m ()
JsonDecode :: JSONStore o m o

Instances

type DefiningModule (JSONStore :: Type -> k -> Type -> Type) Source #
Instance details Defined in Gamgee.Effects.JSONStore type DefiningModule (JSONStore :: Type -> k -> Type -> Type) = "Gamgee.Effects.JSONStore"

Actions

jsonEncode :: forall o r. MemberWithError (JSONStore o) r => o -> Sem r () Source #

jsonDecode :: forall a r. MemberWithError (JSONStore a) r => Sem r a Source #

Interpretations

runJSONStore :: Member (Error EffError) r => Sem (JSONStore Tokens ': r) a -> Sem (ByteStore ': r) a Source #

Reinterprets a JSONStore as a ByteStore

configStoreToByteStore :: Member (Error EffError) r => Sem (JSONStore Config ': r) a -> Sem (ByteStore ': r) a Source #