snaplet-auth-acid-0.1.0: Provides an Acid-State backend for the Auth Snaplet

Safe Haskell	None
Language	Haskell98

Snap.Snaplet.Auth.Backends.Acid

Documentation

type UserLogin = Text Source

type RToken = Text Source

data UserStore Source

Constructors

UserStore
Fields _users :: HashMap UserId AuthUser _loginIndex :: HashMap UserLogin UserId _tokenIndex :: HashMap RToken UserId _nextUserId :: Int

Instances

IsAcidic UserStore Source
SafeCopy UserStore Source
IAuthBackend (AcidState UserStore) Source

users :: Lens' UserStore (HashMap UserId AuthUser) Source

tokenIndex :: Lens' UserStore (HashMap RToken UserId) Source

nextUserId :: Lens' UserStore Int Source

loginIndex :: Lens' UserStore (HashMap UserLogin UserId) Source

emptyUS :: UserStore Source

saveAuthUser :: AuthUser -> UTCTime -> Update UserStore (Either AuthFailure AuthUser) Source

saveNewUser :: AuthUser -> UTCTime -> Update UserStore (Either AuthFailure AuthUser) Source

saveExistingUser :: AuthUser -> UserId -> UTCTime -> Update UserStore (Either AuthFailure AuthUser) Source

deleteIfJust :: (Hashable a, Eq a) => Maybe a -> HashMap a b -> HashMap a b Source

updateUserCache :: MonadState UserStore m => AuthUser -> UserId -> m () Source

updateLoginCache :: MonadState UserStore m => Text -> UserId -> m () Source

updateTokenCache :: MonadState UserStore m => Maybe Text -> UserId -> m () Source

byUserId :: UserId -> Query UserStore (Maybe AuthUser) Source

byLogin :: UserLogin -> Query UserStore (Maybe AuthUser) Source

byRememberToken :: RToken -> Query UserStore (Maybe AuthUser) Source

destroyU :: AuthUser -> Update UserStore () Source

allLogins :: Query UserStore [UserLogin] Source

data SaveAuthUser Source

Constructors

SaveAuthUser AuthUser UTCTime

Instances

UpdateEvent SaveAuthUser Source
Method SaveAuthUser Source
SafeCopy SaveAuthUser Source
type MethodState SaveAuthUser = UserStore Source
type MethodResult SaveAuthUser = Either AuthFailure AuthUser Source

newtype ByUserId Source

Constructors

ByUserId UserId

Instances

QueryEvent ByUserId Source
Method ByUserId Source
SafeCopy ByUserId Source
type MethodState ByUserId = UserStore Source
type MethodResult ByUserId = Maybe AuthUser Source

newtype ByLogin Source

Constructors

ByLogin UserLogin

Instances

QueryEvent ByLogin Source
Method ByLogin Source
SafeCopy ByLogin Source
type MethodState ByLogin = UserStore Source
type MethodResult ByLogin = Maybe AuthUser Source

newtype ByRememberToken Source

Constructors

ByRememberToken RToken

Instances

QueryEvent ByRememberToken Source
Method ByRememberToken Source
SafeCopy ByRememberToken Source
type MethodState ByRememberToken = UserStore Source
type MethodResult ByRememberToken = Maybe AuthUser Source

newtype DestroyU Source

Constructors

DestroyU AuthUser

Instances

UpdateEvent DestroyU Source
Method DestroyU Source
SafeCopy DestroyU Source
type MethodState DestroyU = UserStore Source
type MethodResult DestroyU = () Source

data AllLogins Source

Constructors

Instances

QueryEvent AllLogins Source
Method AllLogins Source
SafeCopy AllLogins Source
type MethodState AllLogins = UserStore Source
type MethodResult AllLogins = [UserLogin] Source

acidSave :: AcidState UserStore -> AuthUser -> IO (Either AuthFailure AuthUser) Source

initAcidAuthManager :: AuthSettings -> SnapletLens b SessionManager -> SnapletInit b (AuthManager b) Source

removeResourceLockOnUnload :: Initializer b v () Source

removeIfExists :: FilePath -> IO () Source

getAllLogins :: AcidState UserStore -> Handler b (AuthManager v) [Text] Source