Servant.Server.Auth.Token.Model

DB entities

data UserImpl

Internal user implementation

Constructors

UserImpl

Fields

• userImplLogin :: !Login

  Unique user login

• userImplPassword :: !Password

  Password encrypted with salt

• userImplEmail :: !Email

  User email

Instances

Show UserImpl

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserImpl -> ShowS

show :: UserImpl -> String

showList :: [UserImpl] -> ShowS

Generic UserImpl

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserImpl :: * -> *

Methods

from :: UserImpl -> Rep UserImpl x

to :: Rep UserImpl x -> UserImpl

type Rep UserImpl

Defined in Servant.Server.Auth.Token.Model

type Rep UserImpl = D1 (MetaData "UserImpl" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "UserImpl" PrefixI True) (S1 (MetaSel (Just "userImplLogin") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Login) :*: (S1 (MetaSel (Just "userImplPassword") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Password) :*: S1 (MetaSel (Just "userImplEmail") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Email))))

data UserPerm

Internal implementation of permission (1-M)

Constructors

UserPerm

Fields

• userPermUser :: !UserImplId

  Reference to user

• userPermPermission :: !Permission

  Permission tag

Instances

Show UserPerm

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserPerm -> ShowS

show :: UserPerm -> String

showList :: [UserPerm] -> ShowS

Generic UserPerm

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserPerm :: * -> *

Methods

from :: UserPerm -> Rep UserPerm x

to :: Rep UserPerm x -> UserPerm

type Rep UserPerm

Defined in Servant.Server.Auth.Token.Model

type Rep UserPerm = D1 (MetaData "UserPerm" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "UserPerm" PrefixI True) (S1 (MetaSel (Just "userPermUser") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 UserImplId) :*: S1 (MetaSel (Just "userPermPermission") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Permission)))

data AuthToken

Internal implementation of authorisation token

Constructors

AuthToken

Fields

• authTokenValue :: !SimpleToken

  Value of token

• authTokenUser :: !UserImplId

  Reference to user of the token

• authTokenExpire :: !UTCTime

  When the token expires

Instances

Show AuthToken

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthToken -> ShowS

show :: AuthToken -> String

showList :: [AuthToken] -> ShowS

Generic AuthToken

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthToken :: * -> *

Methods

from :: AuthToken -> Rep AuthToken x

to :: Rep AuthToken x -> AuthToken

type Rep AuthToken

Defined in Servant.Server.Auth.Token.Model

type Rep AuthToken = D1 (MetaData "AuthToken" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "AuthToken" PrefixI True) (S1 (MetaSel (Just "authTokenValue") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 SimpleToken) :*: (S1 (MetaSel (Just "authTokenUser") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 UserImplId) :*: S1 (MetaSel (Just "authTokenExpire") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 UTCTime))))

data UserRestore

Internal implementation of restoration code

Constructors

UserRestore

Fields

• userRestoreValue :: !RestoreCode

  Code value

• userRestoreUser :: !UserImplId

  Reference to user that the code restores

• userRestoreExpire :: !UTCTime

  When the code expires

Instances

Show UserRestore

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserRestore -> ShowS

show :: UserRestore -> String

showList :: [UserRestore] -> ShowS

Generic UserRestore

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserRestore :: * -> *

Methods

from :: UserRestore -> Rep UserRestore x

to :: Rep UserRestore x -> UserRestore

type Rep UserRestore

Defined in Servant.Server.Auth.Token.Model

type Rep UserRestore = D1 (MetaData "UserRestore" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "UserRestore" PrefixI True) (S1 (MetaSel (Just "userRestoreValue") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 RestoreCode) :*: (S1 (MetaSel (Just "userRestoreUser") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 UserImplId) :*: S1 (MetaSel (Just "userRestoreExpire") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 UTCTime))))

data AuthUserGroup

Internal implementation of user group

Constructors

AuthUserGroup

Fields

• authUserGroupName :: !Text

  Name of group

• authUserGroupParent :: !(Maybe AuthUserGroupId)

  Can be a child of another group

Instances

Show AuthUserGroup

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthUserGroup -> ShowS

show :: AuthUserGroup -> String

showList :: [AuthUserGroup] -> ShowS

Generic AuthUserGroup

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthUserGroup :: * -> *

Methods

from :: AuthUserGroup -> Rep AuthUserGroup x

to :: Rep AuthUserGroup x -> AuthUserGroup

type Rep AuthUserGroup

Defined in Servant.Server.Auth.Token.Model

type Rep AuthUserGroup = D1 (MetaData "AuthUserGroup" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "AuthUserGroup" PrefixI True) (S1 (MetaSel (Just "authUserGroupName") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Text) :*: S1 (MetaSel (Just "authUserGroupParent") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe AuthUserGroupId))))

data AuthUserGroupUsers

Implementation of M-M between user and group

Constructors

AuthUserGroupUsers

Fields

• authUserGroupUsersGroup :: !AuthUserGroupId
• authUserGroupUsersUser :: !UserImplId

Instances

Show AuthUserGroupUsers

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthUserGroupUsers -> ShowS

show :: AuthUserGroupUsers -> String

showList :: [AuthUserGroupUsers] -> ShowS

Generic AuthUserGroupUsers

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthUserGroupUsers :: * -> *

Methods

from :: AuthUserGroupUsers -> Rep AuthUserGroupUsers x

to :: Rep AuthUserGroupUsers x -> AuthUserGroupUsers

type Rep AuthUserGroupUsers

Defined in Servant.Server.Auth.Token.Model

type Rep AuthUserGroupUsers = D1 (MetaData "AuthUserGroupUsers" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "AuthUserGroupUsers" PrefixI True) (S1 (MetaSel (Just "authUserGroupUsersGroup") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 AuthUserGroupId) :*: S1 (MetaSel (Just "authUserGroupUsersUser") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 UserImplId)))

data AuthUserGroupPerms

Implementation of M-M between permission and group

Constructors

AuthUserGroupPerms

Fields

• authUserGroupPermsGroup :: AuthUserGroupId
• authUserGroupPermsPermission :: Permission

Instances

Show AuthUserGroupPerms

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthUserGroupPerms -> ShowS

show :: AuthUserGroupPerms -> String

showList :: [AuthUserGroupPerms] -> ShowS

Generic AuthUserGroupPerms

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthUserGroupPerms :: * -> *

Methods

from :: AuthUserGroupPerms -> Rep AuthUserGroupPerms x

to :: Rep AuthUserGroupPerms x -> AuthUserGroupPerms

type Rep AuthUserGroupPerms

Defined in Servant.Server.Auth.Token.Model

type Rep AuthUserGroupPerms = D1 (MetaData "AuthUserGroupPerms" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "AuthUserGroupPerms" PrefixI True) (S1 (MetaSel (Just "authUserGroupPermsGroup") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 AuthUserGroupId) :*: S1 (MetaSel (Just "authUserGroupPermsPermission") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Permission)))

data UserSingleUseCode

Internal implementation of single use code

Constructors

UserSingleUseCode

Fields

• userSingleUseCodeValue :: !SingleUseCode

  Value of single use code

• userSingleUseCodeUser :: !UserImplId

  Reference to user the code is owned by

• userSingleUseCodeExpire :: !(Maybe UTCTime)

  When the code expires, Nothing is code that never expires

• userSingleUseCodeUsed :: !(Maybe UTCTime)

  When the code was used

Instances

Show UserSingleUseCode

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserSingleUseCode -> ShowS

show :: UserSingleUseCode -> String

showList :: [UserSingleUseCode] -> ShowS

Generic UserSingleUseCode

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserSingleUseCode :: * -> *

Methods

from :: UserSingleUseCode -> Rep UserSingleUseCode x

to :: Rep UserSingleUseCode x -> UserSingleUseCode

type Rep UserSingleUseCode

Defined in Servant.Server.Auth.Token.Model

type Rep UserSingleUseCode = D1 (MetaData "UserSingleUseCode" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" False) (C1 (MetaCons "UserSingleUseCode" PrefixI True) ((S1 (MetaSel (Just "userSingleUseCodeValue") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 SingleUseCode) :*: S1 (MetaSel (Just "userSingleUseCodeUser") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 UserImplId)) :*: (S1 (MetaSel (Just "userSingleUseCodeExpire") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe UTCTime)) :*: S1 (MetaSel (Just "userSingleUseCodeUsed") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe UTCTime)))))

IDs of entities

data UserImplId

ID of user

Instances

Eq UserImplId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: UserImplId -> UserImplId -> Bool

(/=) :: UserImplId -> UserImplId -> Bool

Ord UserImplId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: UserImplId -> UserImplId -> Ordering

(<) :: UserImplId -> UserImplId -> Bool

(<=) :: UserImplId -> UserImplId -> Bool

(>) :: UserImplId -> UserImplId -> Bool

(>=) :: UserImplId -> UserImplId -> Bool

max :: UserImplId -> UserImplId -> UserImplId

min :: UserImplId -> UserImplId -> UserImplId

Show UserImplId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserImplId -> ShowS

show :: UserImplId -> String

showList :: [UserImplId] -> ShowS

Generic UserImplId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserImplId :: * -> *

Methods

from :: UserImplId -> Rep UserImplId x

to :: Rep UserImplId x -> UserImplId

ConvertableKey UserImplId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => UserImplId -> b

toKey :: Integral b => b -> UserImplId

type Rep UserImplId

Defined in Servant.Server.Auth.Token.Model

type Rep UserImplId = D1 (MetaData "UserImplId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "UserImplId" PrefixI True) (S1 (MetaSel (Just "unUserImplId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

data UserPermId

ID of user permission

Instances

Eq UserPermId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: UserPermId -> UserPermId -> Bool

(/=) :: UserPermId -> UserPermId -> Bool

Ord UserPermId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: UserPermId -> UserPermId -> Ordering

(<) :: UserPermId -> UserPermId -> Bool

(<=) :: UserPermId -> UserPermId -> Bool

(>) :: UserPermId -> UserPermId -> Bool

(>=) :: UserPermId -> UserPermId -> Bool

max :: UserPermId -> UserPermId -> UserPermId

min :: UserPermId -> UserPermId -> UserPermId

Show UserPermId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserPermId -> ShowS

show :: UserPermId -> String

showList :: [UserPermId] -> ShowS

Generic UserPermId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserPermId :: * -> *

Methods

from :: UserPermId -> Rep UserPermId x

to :: Rep UserPermId x -> UserPermId

ConvertableKey UserPermId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => UserPermId -> b

toKey :: Integral b => b -> UserPermId

type Rep UserPermId

Defined in Servant.Server.Auth.Token.Model

type Rep UserPermId = D1 (MetaData "UserPermId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "UserPermId" PrefixI True) (S1 (MetaSel (Just "unUserPermId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

data AuthTokenId

ID of authorisation token

Instances

Eq AuthTokenId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: AuthTokenId -> AuthTokenId -> Bool

(/=) :: AuthTokenId -> AuthTokenId -> Bool

Ord AuthTokenId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: AuthTokenId -> AuthTokenId -> Ordering

(<) :: AuthTokenId -> AuthTokenId -> Bool

(<=) :: AuthTokenId -> AuthTokenId -> Bool

(>) :: AuthTokenId -> AuthTokenId -> Bool

(>=) :: AuthTokenId -> AuthTokenId -> Bool

max :: AuthTokenId -> AuthTokenId -> AuthTokenId

min :: AuthTokenId -> AuthTokenId -> AuthTokenId

Show AuthTokenId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthTokenId -> ShowS

show :: AuthTokenId -> String

showList :: [AuthTokenId] -> ShowS

Generic AuthTokenId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthTokenId :: * -> *

Methods

from :: AuthTokenId -> Rep AuthTokenId x

to :: Rep AuthTokenId x -> AuthTokenId

ConvertableKey AuthTokenId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => AuthTokenId -> b

toKey :: Integral b => b -> AuthTokenId

type Rep AuthTokenId

Defined in Servant.Server.Auth.Token.Model

type Rep AuthTokenId = D1 (MetaData "AuthTokenId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "AuthTokenId" PrefixI True) (S1 (MetaSel (Just "unAuthTokenId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

data UserRestoreId

ID of restoration code

Instances

Eq UserRestoreId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: UserRestoreId -> UserRestoreId -> Bool

(/=) :: UserRestoreId -> UserRestoreId -> Bool

Ord UserRestoreId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: UserRestoreId -> UserRestoreId -> Ordering

(<) :: UserRestoreId -> UserRestoreId -> Bool

(<=) :: UserRestoreId -> UserRestoreId -> Bool

(>) :: UserRestoreId -> UserRestoreId -> Bool

(>=) :: UserRestoreId -> UserRestoreId -> Bool

max :: UserRestoreId -> UserRestoreId -> UserRestoreId

min :: UserRestoreId -> UserRestoreId -> UserRestoreId

Show UserRestoreId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserRestoreId -> ShowS

show :: UserRestoreId -> String

showList :: [UserRestoreId] -> ShowS

Generic UserRestoreId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserRestoreId :: * -> *

Methods

from :: UserRestoreId -> Rep UserRestoreId x

to :: Rep UserRestoreId x -> UserRestoreId

ConvertableKey UserRestoreId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => UserRestoreId -> b

toKey :: Integral b => b -> UserRestoreId

type Rep UserRestoreId

Defined in Servant.Server.Auth.Token.Model

type Rep UserRestoreId = D1 (MetaData "UserRestoreId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "UserRestoreId" PrefixI True) (S1 (MetaSel (Just "unUserRestoreId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

data AuthUserGroupId

ID of user group

Instances

Eq AuthUserGroupId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: AuthUserGroupId -> AuthUserGroupId -> Bool

(/=) :: AuthUserGroupId -> AuthUserGroupId -> Bool

Ord AuthUserGroupId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: AuthUserGroupId -> AuthUserGroupId -> Ordering

(<) :: AuthUserGroupId -> AuthUserGroupId -> Bool

(<=) :: AuthUserGroupId -> AuthUserGroupId -> Bool

(>) :: AuthUserGroupId -> AuthUserGroupId -> Bool

(>=) :: AuthUserGroupId -> AuthUserGroupId -> Bool

max :: AuthUserGroupId -> AuthUserGroupId -> AuthUserGroupId

min :: AuthUserGroupId -> AuthUserGroupId -> AuthUserGroupId

Show AuthUserGroupId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthUserGroupId -> ShowS

show :: AuthUserGroupId -> String

showList :: [AuthUserGroupId] -> ShowS

Generic AuthUserGroupId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthUserGroupId :: * -> *

Methods

from :: AuthUserGroupId -> Rep AuthUserGroupId x

to :: Rep AuthUserGroupId x -> AuthUserGroupId

ConvertableKey AuthUserGroupId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => AuthUserGroupId -> b

toKey :: Integral b => b -> AuthUserGroupId

type Rep AuthUserGroupId

Defined in Servant.Server.Auth.Token.Model

type Rep AuthUserGroupId = D1 (MetaData "AuthUserGroupId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "AuthUserGroupId" PrefixI True) (S1 (MetaSel (Just "unAuthUserGroupId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

data AuthUserGroupUsersId

ID of user-group binding

Instances

Eq AuthUserGroupUsersId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> Bool

(/=) :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> Bool

Ord AuthUserGroupUsersId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> Ordering

(<) :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> Bool

(<=) :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> Bool

(>) :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> Bool

(>=) :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> Bool

max :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> AuthUserGroupUsersId

min :: AuthUserGroupUsersId -> AuthUserGroupUsersId -> AuthUserGroupUsersId

Show AuthUserGroupUsersId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthUserGroupUsersId -> ShowS

show :: AuthUserGroupUsersId -> String

showList :: [AuthUserGroupUsersId] -> ShowS

Generic AuthUserGroupUsersId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthUserGroupUsersId :: * -> *

Methods

from :: AuthUserGroupUsersId -> Rep AuthUserGroupUsersId x

to :: Rep AuthUserGroupUsersId x -> AuthUserGroupUsersId

ConvertableKey AuthUserGroupUsersId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => AuthUserGroupUsersId -> b

toKey :: Integral b => b -> AuthUserGroupUsersId

type Rep AuthUserGroupUsersId

Defined in Servant.Server.Auth.Token.Model

type Rep AuthUserGroupUsersId = D1 (MetaData "AuthUserGroupUsersId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "AuthUserGroupUsersId" PrefixI True) (S1 (MetaSel (Just "unAuthUserGroupUsersId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

data AuthUserGroupPermsId

ID of permission-group binding

Instances

Eq AuthUserGroupPermsId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> Bool

(/=) :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> Bool

Ord AuthUserGroupPermsId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> Ordering

(<) :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> Bool

(<=) :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> Bool

(>) :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> Bool

(>=) :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> Bool

max :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> AuthUserGroupPermsId

min :: AuthUserGroupPermsId -> AuthUserGroupPermsId -> AuthUserGroupPermsId

Show AuthUserGroupPermsId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> AuthUserGroupPermsId -> ShowS

show :: AuthUserGroupPermsId -> String

showList :: [AuthUserGroupPermsId] -> ShowS

Generic AuthUserGroupPermsId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep AuthUserGroupPermsId :: * -> *

Methods

from :: AuthUserGroupPermsId -> Rep AuthUserGroupPermsId x

to :: Rep AuthUserGroupPermsId x -> AuthUserGroupPermsId

ConvertableKey AuthUserGroupPermsId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => AuthUserGroupPermsId -> b

toKey :: Integral b => b -> AuthUserGroupPermsId

type Rep AuthUserGroupPermsId

Defined in Servant.Server.Auth.Token.Model

type Rep AuthUserGroupPermsId = D1 (MetaData "AuthUserGroupPermsId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "AuthUserGroupPermsId" PrefixI True) (S1 (MetaSel (Just "unAuthUserGroupPermsId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

data UserSingleUseCodeId

ID of single use code

Instances

Eq UserSingleUseCodeId

Defined in Servant.Server.Auth.Token.Model

Methods

(==) :: UserSingleUseCodeId -> UserSingleUseCodeId -> Bool

(/=) :: UserSingleUseCodeId -> UserSingleUseCodeId -> Bool

Ord UserSingleUseCodeId

Defined in Servant.Server.Auth.Token.Model

Methods

compare :: UserSingleUseCodeId -> UserSingleUseCodeId -> Ordering

(<) :: UserSingleUseCodeId -> UserSingleUseCodeId -> Bool

(<=) :: UserSingleUseCodeId -> UserSingleUseCodeId -> Bool

(>) :: UserSingleUseCodeId -> UserSingleUseCodeId -> Bool

(>=) :: UserSingleUseCodeId -> UserSingleUseCodeId -> Bool

max :: UserSingleUseCodeId -> UserSingleUseCodeId -> UserSingleUseCodeId

min :: UserSingleUseCodeId -> UserSingleUseCodeId -> UserSingleUseCodeId

Show UserSingleUseCodeId

Defined in Servant.Server.Auth.Token.Model

Methods

showsPrec :: Int -> UserSingleUseCodeId -> ShowS

show :: UserSingleUseCodeId -> String

showList :: [UserSingleUseCodeId] -> ShowS

Generic UserSingleUseCodeId

Defined in Servant.Server.Auth.Token.Model

Associated Types

type Rep UserSingleUseCodeId :: * -> *

Methods

from :: UserSingleUseCodeId -> Rep UserSingleUseCodeId x

to :: Rep UserSingleUseCodeId x -> UserSingleUseCodeId

ConvertableKey UserSingleUseCodeId

Defined in Servant.Server.Auth.Token.Model

Methods

fromKey :: Integral b => UserSingleUseCodeId -> b

toKey :: Integral b => b -> UserSingleUseCodeId

type Rep UserSingleUseCodeId

Defined in Servant.Server.Auth.Token.Model

type Rep UserSingleUseCodeId = D1 (MetaData "UserSingleUseCodeId" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.5.4.0-LmMa4gnsmOZBo06ls3QnQg" True) (C1 (MetaCons "UserSingleUseCodeId" PrefixI True) (S1 (MetaSel (Just "unUserSingleUseCodeId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int64)))

DB interface

class MonadIO m => HasStorage m where

Abstract storage interface. External libraries can implement this in terms of PostgreSQL or acid-state.

Methods

getUserImpl :: UserImplId -> m (Maybe UserImpl)

Getting user from storage

getUserImpl :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> m (Maybe UserImpl)

Getting user from storage

getUserImplByLogin :: Login -> m (Maybe (WithId UserImplId UserImpl))

Getting user from storage by login

getUserImplByLogin :: (m ~ t n, MonadTrans t, HasStorage n) => Login -> m (Maybe (WithId UserImplId UserImpl))

Getting user from storage by login

listUsersPaged :: Page -> PageSize -> m ([WithId UserImplId UserImpl], Word)

Get paged list of users and total count of users

listUsersPaged :: (m ~ t n, MonadTrans t, HasStorage n) => Page -> PageSize -> m ([WithId UserImplId UserImpl], Word)

Get paged list of users and total count of users

getUserImplPermissions :: UserImplId -> m [WithId UserPermId UserPerm]

Get user permissions, ascending by tag

getUserImplPermissions :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> m [WithId UserPermId UserPerm]

Get user permissions, ascending by tag

deleteUserPermissions :: UserImplId -> m ()

Delete user permissions

deleteUserPermissions :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> m ()

Delete user permissions

insertUserPerm :: UserPerm -> m UserPermId

Insertion of new user permission

insertUserPerm :: (m ~ t n, MonadTrans t, HasStorage n) => UserPerm -> m UserPermId

Insertion of new user permission

insertUserImpl :: UserImpl -> m UserImplId

Insertion of new user

insertUserImpl :: (m ~ t n, MonadTrans t, HasStorage n) => UserImpl -> m UserImplId

Insertion of new user

replaceUserImpl :: UserImplId -> UserImpl -> m ()

Replace user with new value

replaceUserImpl :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> UserImpl -> m ()

Replace user with new value

deleteUserImpl :: UserImplId -> m ()

Delete user by id

deleteUserImpl :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> m ()

Delete user by id

hasPerm :: UserImplId -> Permission -> m Bool

Check whether the user has particular permission

hasPerm :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> Permission -> m Bool

Check whether the user has particular permission

getFirstUserByPerm :: Permission -> m (Maybe (WithId UserImplId UserImpl))

Get any user with given permission

getFirstUserByPerm :: (m ~ t n, MonadTrans t, HasStorage n) => Permission -> m (Maybe (WithId UserImplId UserImpl))

Get any user with given permission

selectUserImplGroups :: UserImplId -> m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

Select user groups and sort them by ascending name

selectUserImplGroups :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

Select user groups and sort them by ascending name

clearUserImplGroups :: UserImplId -> m ()

Remove user from all groups

clearUserImplGroups :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> m ()

Remove user from all groups

insertAuthUserGroup :: AuthUserGroup -> m AuthUserGroupId

Add new user group

insertAuthUserGroup :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroup -> m AuthUserGroupId

Add new user group

insertAuthUserGroupUsers :: AuthUserGroupUsers -> m AuthUserGroupUsersId

Add user to given group

insertAuthUserGroupUsers :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupUsers -> m AuthUserGroupUsersId

Add user to given group

insertAuthUserGroupPerms :: AuthUserGroupPerms -> m AuthUserGroupPermsId

Add permission to given group

insertAuthUserGroupPerms :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupPerms -> m AuthUserGroupPermsId

Add permission to given group

getAuthUserGroup :: AuthUserGroupId -> m (Maybe AuthUserGroup)

Find user group by id

getAuthUserGroup :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> m (Maybe AuthUserGroup)

Find user group by id

listAuthUserGroupPermissions :: AuthUserGroupId -> m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

Get list of permissions of given group

listAuthUserGroupPermissions :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

Get list of permissions of given group

listAuthUserGroupUsers :: AuthUserGroupId -> m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

Get list of all users of the group

listAuthUserGroupUsers :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

Get list of all users of the group

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> m ()

Replace record of user group

replaceAuthUserGroup :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> AuthUserGroup -> m ()

Replace record of user group

clearAuthUserGroupUsers :: AuthUserGroupId -> m ()

Remove all users from group

clearAuthUserGroupUsers :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> m ()

Remove all users from group

clearAuthUserGroupPerms :: AuthUserGroupId -> m ()

Remove all permissions from group

clearAuthUserGroupPerms :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> m ()

Remove all permissions from group

deleteAuthUserGroup :: AuthUserGroupId -> m ()

Delete user group from storage

deleteAuthUserGroup :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> m ()

Delete user group from storage

listGroupsPaged :: Page -> PageSize -> m ([WithId AuthUserGroupId AuthUserGroup], Word)

Get paged list of user groups with total count

listGroupsPaged :: (m ~ t n, MonadTrans t, HasStorage n) => Page -> PageSize -> m ([WithId AuthUserGroupId AuthUserGroup], Word)

Get paged list of user groups with total count

setAuthUserGroupName :: AuthUserGroupId -> Text -> m ()

Set group name

setAuthUserGroupName :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> Text -> m ()

Set group name

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> m ()

Set group parent

setAuthUserGroupParent :: (m ~ t n, MonadTrans t, HasStorage n) => AuthUserGroupId -> Maybe AuthUserGroupId -> m ()

Set group parent

insertSingleUseCode :: UserSingleUseCode -> m UserSingleUseCodeId

Add new single use code

insertSingleUseCode :: (m ~ t n, MonadTrans t, HasStorage n) => UserSingleUseCode -> m UserSingleUseCodeId

Add new single use code

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> m ()

Set usage time of the single use code

setSingleUseCodeUsed :: (m ~ t n, MonadTrans t, HasStorage n) => UserSingleUseCodeId -> Maybe UTCTime -> m ()

Set usage time of the single use code

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

Find unused code for the user and expiration time greater than the given time

getUnusedCode :: (m ~ t n, MonadTrans t, HasStorage n) => SingleUseCode -> UserImplId -> UTCTime -> m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

Find unused code for the user and expiration time greater than the given time

invalidatePermanentCodes :: UserImplId -> UTCTime -> m ()

Invalidate all permanent codes for user and set use time for them

invalidatePermanentCodes :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> UTCTime -> m ()

Invalidate all permanent codes for user and set use time for them

selectLastRestoreCode :: UserImplId -> UTCTime -> m (Maybe (WithId UserRestoreId UserRestore))

Select last valid restoration code by the given current time

selectLastRestoreCode :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> UTCTime -> m (Maybe (WithId UserRestoreId UserRestore))

Select last valid restoration code by the given current time

insertUserRestore :: UserRestore -> m UserRestoreId

Insert new restore code

insertUserRestore :: (m ~ t n, MonadTrans t, HasStorage n) => UserRestore -> m UserRestoreId

Insert new restore code

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> m (Maybe (WithId UserRestoreId UserRestore))

Find unexpired by the time restore code

findRestoreCode :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> RestoreCode -> UTCTime -> m (Maybe (WithId UserRestoreId UserRestore))

Find unexpired by the time restore code

replaceRestoreCode :: UserRestoreId -> UserRestore -> m ()

Replace restore code with new value

replaceRestoreCode :: (m ~ t n, MonadTrans t, HasStorage n) => UserRestoreId -> UserRestore -> m ()

Replace restore code with new value

findAuthToken :: UserImplId -> UTCTime -> m (Maybe (WithId AuthTokenId AuthToken))

Find first non-expired by the time token for user

findAuthToken :: (m ~ t n, MonadTrans t, HasStorage n) => UserImplId -> UTCTime -> m (Maybe (WithId AuthTokenId AuthToken))

Find first non-expired by the time token for user

findAuthTokenByValue :: SimpleToken -> m (Maybe (WithId AuthTokenId AuthToken))

Find token by value

findAuthTokenByValue :: (m ~ t n, MonadTrans t, HasStorage n) => SimpleToken -> m (Maybe (WithId AuthTokenId AuthToken))

Find token by value

insertAuthToken :: AuthToken -> m AuthTokenId

Insert new token

insertAuthToken :: (m ~ t n, MonadTrans t, HasStorage n) => AuthToken -> m AuthTokenId

Insert new token

replaceAuthToken :: AuthTokenId -> AuthToken -> m ()

Replace auth token with new value

replaceAuthToken :: (m ~ t n, MonadTrans t, HasStorage n) => AuthTokenId -> AuthToken -> m ()

Replace auth token with new value

Instances

HasStorage m => HasStorage (ExceptT e m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> ExceptT e m (Maybe UserImpl)

getUserImplByLogin :: Login -> ExceptT e m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> ExceptT e m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> ExceptT e m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> ExceptT e m ()

insertUserPerm :: UserPerm -> ExceptT e m UserPermId

insertUserImpl :: UserImpl -> ExceptT e m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> ExceptT e m ()

deleteUserImpl :: UserImplId -> ExceptT e m ()

hasPerm :: UserImplId -> Permission -> ExceptT e m Bool

getFirstUserByPerm :: Permission -> ExceptT e m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> ExceptT e m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> ExceptT e m ()

insertAuthUserGroup :: AuthUserGroup -> ExceptT e m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> ExceptT e m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> ExceptT e m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> ExceptT e m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> ExceptT e m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> ExceptT e m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> ExceptT e m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> ExceptT e m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> ExceptT e m ()

deleteAuthUserGroup :: AuthUserGroupId -> ExceptT e m ()

listGroupsPaged :: Page -> PageSize -> ExceptT e m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> ExceptT e m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> ExceptT e m ()

insertSingleUseCode :: UserSingleUseCode -> ExceptT e m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> ExceptT e m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> ExceptT e m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> ExceptT e m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> ExceptT e m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> ExceptT e m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> ExceptT e m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> ExceptT e m ()

findAuthToken :: UserImplId -> UTCTime -> ExceptT e m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> ExceptT e m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> ExceptT e m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> ExceptT e m ()

(HasStorage m, Monoid w) => HasStorage (WriterT w m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> WriterT w m (Maybe UserImpl)

getUserImplByLogin :: Login -> WriterT w m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> WriterT w m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> WriterT w m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> WriterT w m ()

insertUserPerm :: UserPerm -> WriterT w m UserPermId

insertUserImpl :: UserImpl -> WriterT w m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> WriterT w m ()

deleteUserImpl :: UserImplId -> WriterT w m ()

hasPerm :: UserImplId -> Permission -> WriterT w m Bool

getFirstUserByPerm :: Permission -> WriterT w m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> WriterT w m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> WriterT w m ()

insertAuthUserGroup :: AuthUserGroup -> WriterT w m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> WriterT w m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> WriterT w m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> WriterT w m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> WriterT w m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> WriterT w m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> WriterT w m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> WriterT w m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> WriterT w m ()

deleteAuthUserGroup :: AuthUserGroupId -> WriterT w m ()

listGroupsPaged :: Page -> PageSize -> WriterT w m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> WriterT w m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> WriterT w m ()

insertSingleUseCode :: UserSingleUseCode -> WriterT w m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> WriterT w m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> WriterT w m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> WriterT w m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> WriterT w m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> WriterT w m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> WriterT w m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> WriterT w m ()

findAuthToken :: UserImplId -> UTCTime -> WriterT w m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> WriterT w m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> WriterT w m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> WriterT w m ()

HasStorage m => HasStorage (StateT s m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> StateT s m (Maybe UserImpl)

getUserImplByLogin :: Login -> StateT s m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> StateT s m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> StateT s m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> StateT s m ()

insertUserPerm :: UserPerm -> StateT s m UserPermId

insertUserImpl :: UserImpl -> StateT s m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> StateT s m ()

deleteUserImpl :: UserImplId -> StateT s m ()

hasPerm :: UserImplId -> Permission -> StateT s m Bool

getFirstUserByPerm :: Permission -> StateT s m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> StateT s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> StateT s m ()

insertAuthUserGroup :: AuthUserGroup -> StateT s m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> StateT s m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> StateT s m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> StateT s m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> StateT s m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> StateT s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> StateT s m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> StateT s m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> StateT s m ()

deleteAuthUserGroup :: AuthUserGroupId -> StateT s m ()

listGroupsPaged :: Page -> PageSize -> StateT s m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> StateT s m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> StateT s m ()

insertSingleUseCode :: UserSingleUseCode -> StateT s m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> StateT s m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> StateT s m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> StateT s m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> StateT s m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> StateT s m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> StateT s m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> StateT s m ()

findAuthToken :: UserImplId -> UTCTime -> StateT s m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> StateT s m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> StateT s m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> StateT s m ()

HasStorage m => HasStorage (StateT s m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> StateT s m (Maybe UserImpl)

getUserImplByLogin :: Login -> StateT s m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> StateT s m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> StateT s m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> StateT s m ()

insertUserPerm :: UserPerm -> StateT s m UserPermId

insertUserImpl :: UserImpl -> StateT s m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> StateT s m ()

deleteUserImpl :: UserImplId -> StateT s m ()

hasPerm :: UserImplId -> Permission -> StateT s m Bool

getFirstUserByPerm :: Permission -> StateT s m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> StateT s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> StateT s m ()

insertAuthUserGroup :: AuthUserGroup -> StateT s m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> StateT s m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> StateT s m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> StateT s m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> StateT s m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> StateT s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> StateT s m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> StateT s m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> StateT s m ()

deleteAuthUserGroup :: AuthUserGroupId -> StateT s m ()

listGroupsPaged :: Page -> PageSize -> StateT s m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> StateT s m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> StateT s m ()

insertSingleUseCode :: UserSingleUseCode -> StateT s m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> StateT s m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> StateT s m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> StateT s m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> StateT s m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> StateT s m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> StateT s m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> StateT s m ()

findAuthToken :: UserImplId -> UTCTime -> StateT s m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> StateT s m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> StateT s m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> StateT s m ()

(HasStorage m, Monoid w) => HasStorage (WriterT w m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> WriterT w m (Maybe UserImpl)

getUserImplByLogin :: Login -> WriterT w m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> WriterT w m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> WriterT w m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> WriterT w m ()

insertUserPerm :: UserPerm -> WriterT w m UserPermId

insertUserImpl :: UserImpl -> WriterT w m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> WriterT w m ()

deleteUserImpl :: UserImplId -> WriterT w m ()

hasPerm :: UserImplId -> Permission -> WriterT w m Bool

getFirstUserByPerm :: Permission -> WriterT w m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> WriterT w m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> WriterT w m ()

insertAuthUserGroup :: AuthUserGroup -> WriterT w m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> WriterT w m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> WriterT w m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> WriterT w m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> WriterT w m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> WriterT w m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> WriterT w m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> WriterT w m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> WriterT w m ()

deleteAuthUserGroup :: AuthUserGroupId -> WriterT w m ()

listGroupsPaged :: Page -> PageSize -> WriterT w m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> WriterT w m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> WriterT w m ()

insertSingleUseCode :: UserSingleUseCode -> WriterT w m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> WriterT w m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> WriterT w m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> WriterT w m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> WriterT w m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> WriterT w m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> WriterT w m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> WriterT w m ()

findAuthToken :: UserImplId -> UTCTime -> WriterT w m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> WriterT w m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> WriterT w m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> WriterT w m ()

HasStorage m => HasStorage (ReaderT r m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> ReaderT r m (Maybe UserImpl)

getUserImplByLogin :: Login -> ReaderT r m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> ReaderT r m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> ReaderT r m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> ReaderT r m ()

insertUserPerm :: UserPerm -> ReaderT r m UserPermId

insertUserImpl :: UserImpl -> ReaderT r m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> ReaderT r m ()

deleteUserImpl :: UserImplId -> ReaderT r m ()

hasPerm :: UserImplId -> Permission -> ReaderT r m Bool

getFirstUserByPerm :: Permission -> ReaderT r m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> ReaderT r m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> ReaderT r m ()

insertAuthUserGroup :: AuthUserGroup -> ReaderT r m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> ReaderT r m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> ReaderT r m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> ReaderT r m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> ReaderT r m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> ReaderT r m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> ReaderT r m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> ReaderT r m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> ReaderT r m ()

deleteAuthUserGroup :: AuthUserGroupId -> ReaderT r m ()

listGroupsPaged :: Page -> PageSize -> ReaderT r m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> ReaderT r m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> ReaderT r m ()

insertSingleUseCode :: UserSingleUseCode -> ReaderT r m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> ReaderT r m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> ReaderT r m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> ReaderT r m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> ReaderT r m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> ReaderT r m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> ReaderT r m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> ReaderT r m ()

findAuthToken :: UserImplId -> UTCTime -> ReaderT r m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> ReaderT r m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> ReaderT r m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> ReaderT r m ()

HasStorage m => HasStorage (ContT r m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> ContT r m (Maybe UserImpl)

getUserImplByLogin :: Login -> ContT r m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> ContT r m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> ContT r m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> ContT r m ()

insertUserPerm :: UserPerm -> ContT r m UserPermId

insertUserImpl :: UserImpl -> ContT r m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> ContT r m ()

deleteUserImpl :: UserImplId -> ContT r m ()

hasPerm :: UserImplId -> Permission -> ContT r m Bool

getFirstUserByPerm :: Permission -> ContT r m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> ContT r m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> ContT r m ()

insertAuthUserGroup :: AuthUserGroup -> ContT r m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> ContT r m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> ContT r m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> ContT r m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> ContT r m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> ContT r m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> ContT r m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> ContT r m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> ContT r m ()

deleteAuthUserGroup :: AuthUserGroupId -> ContT r m ()

listGroupsPaged :: Page -> PageSize -> ContT r m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> ContT r m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> ContT r m ()

insertSingleUseCode :: UserSingleUseCode -> ContT r m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> ContT r m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> ContT r m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> ContT r m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> ContT r m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> ContT r m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> ContT r m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> ContT r m ()

findAuthToken :: UserImplId -> UTCTime -> ContT r m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> ContT r m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> ContT r m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> ContT r m ()

(HasStorage m, Monoid w) => HasStorage (RWST r w s m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> RWST r w s m (Maybe UserImpl)

getUserImplByLogin :: Login -> RWST r w s m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> RWST r w s m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> RWST r w s m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> RWST r w s m ()

insertUserPerm :: UserPerm -> RWST r w s m UserPermId

insertUserImpl :: UserImpl -> RWST r w s m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> RWST r w s m ()

deleteUserImpl :: UserImplId -> RWST r w s m ()

hasPerm :: UserImplId -> Permission -> RWST r w s m Bool

getFirstUserByPerm :: Permission -> RWST r w s m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> RWST r w s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> RWST r w s m ()

insertAuthUserGroup :: AuthUserGroup -> RWST r w s m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> RWST r w s m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> RWST r w s m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> RWST r w s m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> RWST r w s m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> RWST r w s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> RWST r w s m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> RWST r w s m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> RWST r w s m ()

deleteAuthUserGroup :: AuthUserGroupId -> RWST r w s m ()

listGroupsPaged :: Page -> PageSize -> RWST r w s m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> RWST r w s m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> RWST r w s m ()

insertSingleUseCode :: UserSingleUseCode -> RWST r w s m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> RWST r w s m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> RWST r w s m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> RWST r w s m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> RWST r w s m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> RWST r w s m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> RWST r w s m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> RWST r w s m ()

findAuthToken :: UserImplId -> UTCTime -> RWST r w s m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> RWST r w s m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> RWST r w s m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> RWST r w s m ()

(HasStorage m, Monoid w) => HasStorage (RWST r w s m)

Defined in Servant.Server.Auth.Token.Model

Methods

getUserImpl :: UserImplId -> RWST r w s m (Maybe UserImpl)

getUserImplByLogin :: Login -> RWST r w s m (Maybe (WithId UserImplId UserImpl))

listUsersPaged :: Page -> PageSize -> RWST r w s m ([WithId UserImplId UserImpl], Word)

getUserImplPermissions :: UserImplId -> RWST r w s m [WithId UserPermId UserPerm]

deleteUserPermissions :: UserImplId -> RWST r w s m ()

insertUserPerm :: UserPerm -> RWST r w s m UserPermId

insertUserImpl :: UserImpl -> RWST r w s m UserImplId

replaceUserImpl :: UserImplId -> UserImpl -> RWST r w s m ()

deleteUserImpl :: UserImplId -> RWST r w s m ()

hasPerm :: UserImplId -> Permission -> RWST r w s m Bool

getFirstUserByPerm :: Permission -> RWST r w s m (Maybe (WithId UserImplId UserImpl))

selectUserImplGroups :: UserImplId -> RWST r w s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

clearUserImplGroups :: UserImplId -> RWST r w s m ()

insertAuthUserGroup :: AuthUserGroup -> RWST r w s m AuthUserGroupId

insertAuthUserGroupUsers :: AuthUserGroupUsers -> RWST r w s m AuthUserGroupUsersId

insertAuthUserGroupPerms :: AuthUserGroupPerms -> RWST r w s m AuthUserGroupPermsId

getAuthUserGroup :: AuthUserGroupId -> RWST r w s m (Maybe AuthUserGroup)

listAuthUserGroupPermissions :: AuthUserGroupId -> RWST r w s m [WithId AuthUserGroupPermsId AuthUserGroupPerms]

listAuthUserGroupUsers :: AuthUserGroupId -> RWST r w s m [WithId AuthUserGroupUsersId AuthUserGroupUsers]

replaceAuthUserGroup :: AuthUserGroupId -> AuthUserGroup -> RWST r w s m ()

clearAuthUserGroupUsers :: AuthUserGroupId -> RWST r w s m ()

clearAuthUserGroupPerms :: AuthUserGroupId -> RWST r w s m ()

deleteAuthUserGroup :: AuthUserGroupId -> RWST r w s m ()

listGroupsPaged :: Page -> PageSize -> RWST r w s m ([WithId AuthUserGroupId AuthUserGroup], Word)

setAuthUserGroupName :: AuthUserGroupId -> Text -> RWST r w s m ()

setAuthUserGroupParent :: AuthUserGroupId -> Maybe AuthUserGroupId -> RWST r w s m ()

insertSingleUseCode :: UserSingleUseCode -> RWST r w s m UserSingleUseCodeId

setSingleUseCodeUsed :: UserSingleUseCodeId -> Maybe UTCTime -> RWST r w s m ()

getUnusedCode :: SingleUseCode -> UserImplId -> UTCTime -> RWST r w s m (Maybe (WithId UserSingleUseCodeId UserSingleUseCode))

invalidatePermanentCodes :: UserImplId -> UTCTime -> RWST r w s m ()

selectLastRestoreCode :: UserImplId -> UTCTime -> RWST r w s m (Maybe (WithId UserRestoreId UserRestore))

insertUserRestore :: UserRestore -> RWST r w s m UserRestoreId

findRestoreCode :: UserImplId -> RestoreCode -> UTCTime -> RWST r w s m (Maybe (WithId UserRestoreId UserRestore))

replaceRestoreCode :: UserRestoreId -> UserRestore -> RWST r w s m ()

findAuthToken :: UserImplId -> UTCTime -> RWST r w s m (Maybe (WithId AuthTokenId AuthToken))

findAuthTokenByValue :: SimpleToken -> RWST r w s m (Maybe (WithId AuthTokenId AuthToken))

insertAuthToken :: AuthToken -> RWST r w s m AuthTokenId

replaceAuthToken :: AuthTokenId -> AuthToken -> RWST r w s m ()

Operations

passToByteString :: Password -> ByteString

Convert password to bytestring

byteStringToPass :: ByteString -> Password

Convert bytestring into password

User

userToUserInfo :: WithId UserImplId UserImpl -> [Permission] -> [UserGroupId] -> RespUserInfo

Helper to convert user to response

readUserInfo :: HasStorage m => UserId -> m (Maybe RespUserInfo)

Get user by id

readUserInfoByLogin :: HasStorage m => Login -> m (Maybe RespUserInfo)

Get user by login

getUserPermissions :: HasStorage m => UserImplId -> m [Permission]

Return list of permissions for the given user (only permissions that are assigned to him directly)

setUserPermissions :: HasStorage m => UserImplId -> [Permission] -> m ()

Return list of permissions for the given user

createUser :: HasStorage m => Int -> Login -> Password -> Email -> [Permission] -> m UserImplId

Creation of new user

hasPerms :: HasStorage m => UserImplId -> [Permission] -> m Bool

Check whether the user has particular permissions

createAdmin :: HasStorage m => Int -> Login -> Password -> Email -> m UserImplId

Creates user with admin privileges

ensureAdmin :: HasStorage m => Int -> Login -> Password -> Email -> m ()

Ensures that DB has at leas one admin, if not, creates a new one with specified info.

patchUser

Arguments

:: HasStorage m

=> Int

Password strength

-> PatchUser

-> WithId UserImplId UserImpl

-> m (WithId UserImplId UserImpl)

Apply patches for user

setUserPassword'

Arguments

:: MonadIO m

=> Int

Password strength

-> Password

-> UserImpl

-> m UserImpl

Update password of user

User groups

getUserGroups :: HasStorage m => UserImplId -> m [UserGroupId]

Get all groups the user belongs to

setUserGroups :: HasStorage m => UserImplId -> [UserGroupId] -> m ()

Rewrite all user groups

validateGroups :: HasStorage m => [UserGroupId] -> m [AuthUserGroupId]

Leave only existing groups

getGroupPermissions :: HasStorage m => UserGroupId -> m [Permission]

Getting permission of a group and all it parent groups

getUserGroupPermissions :: HasStorage m => UserImplId -> m [Permission]

Get user permissions that are assigned to him/her via groups only

getUserAllPermissions :: HasStorage m => UserImplId -> m [Permission]

Get user permissions that are assigned to him/her either by direct way or by his/her groups.

readUserGroup :: HasStorage m => UserGroupId -> m (Maybe UserGroup)

Collect full info about user group from RDBMS

toAuthUserGroup :: UserGroup -> (AuthUserGroup, AuthUserGroupId -> [AuthUserGroupUsers], AuthUserGroupId -> [AuthUserGroupPerms])

Helper to convert user group into values of several tables

insertUserGroup :: HasStorage m => UserGroup -> m UserGroupId

Insert user group into RDBMS

updateUserGroup :: HasStorage m => UserGroupId -> UserGroup -> m ()

Replace user group with new value

deleteUserGroup :: HasStorage m => UserGroupId -> m ()

Erase user group from RDBMS, cascade

patchUserGroup :: HasStorage m => UserGroupId -> PatchUserGroup -> m ()

Partial update of user group

Low-level

makeUserInfo :: HasStorage m => WithId UserImplId UserImpl -> m RespUserInfo

Low level operation for collecting info about user