Safe Haskell	None

Snap.Snaplet.Auth.Backends.Acid

Documentation

type UserLogin = TextSource

type RToken = TextSource

data UserStore Source

Constructors

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

Instances

Typeable UserStore
IsAcidic UserStore
SafeCopy UserStore
IAuthBackend (AcidState UserStore)

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

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

nextUserId :: Lens UserStore UserStore Int Int Source

loginIndex :: Lens UserStore UserStore (HashMap UserLogin UserId) (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 bSource

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

Typeable SaveAuthUser
UpdateEvent SaveAuthUser
Method SaveAuthUser
SafeCopy SaveAuthUser

data ByUserId Source

Constructors

ByUserId UserId

Instances

Typeable ByUserId
QueryEvent ByUserId
Method ByUserId
SafeCopy ByUserId

data ByLogin Source

Constructors

ByLogin UserLogin

Instances

Typeable ByLogin
QueryEvent ByLogin
Method ByLogin
SafeCopy ByLogin

data ByRememberToken Source

Constructors

ByRememberToken RToken

Instances

Typeable ByRememberToken
QueryEvent ByRememberToken
Method ByRememberToken
SafeCopy ByRememberToken

data DestroyU Source

Constructors

DestroyU AuthUser

Instances

Typeable DestroyU
UpdateEvent DestroyU
Method DestroyU
SafeCopy DestroyU

data AllLogins Source

Constructors

AllLogins

Instances

Typeable AllLogins
QueryEvent AllLogins
Method AllLogins
SafeCopy AllLogins

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