Servant.Server.Auth.Token.Model

DB entities

data UserImpl

Constructors

UserImpl

Fields

• userImplLogin :: !Login
• userImplPassword :: !Password
• userImplEmail :: !Email

Instances

Show UserImpl

Methods

showsPrec :: Int -> UserImpl -> ShowS

show :: UserImpl -> String

showList :: [UserImpl] -> ShowS

Generic UserImpl

Associated Types

type Rep UserImpl :: * -> *

Methods

from :: UserImpl -> Rep UserImpl x

to :: Rep UserImpl x -> UserImpl

PersistFieldSql UserImpl

Methods

sqlType :: Proxy * UserImpl -> SqlType

PersistField UserImpl

Methods

toPersistValue :: UserImpl -> PersistValue

fromPersistValue :: PersistValue -> Either Text UserImpl

PersistEntity UserImpl

Associated Types

type PersistEntityBackend UserImpl :: *

data Key UserImpl :: *

data EntityField UserImpl a :: *

data Unique UserImpl :: *

Methods

keyToValues :: Key UserImpl -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key UserImpl)

persistIdField :: EntityField UserImpl (Key UserImpl)

entityDef :: Monad m => m UserImpl -> EntityDef

persistFieldDef :: EntityField UserImpl typ -> FieldDef

toPersistFields :: UserImpl -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text UserImpl

persistUniqueKeys :: UserImpl -> [Unique UserImpl]

persistUniqueToFieldNames :: Unique UserImpl -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique UserImpl -> [PersistValue]

fieldLens :: EntityField UserImpl field -> forall f. Functor f => (field -> f field) -> Entity UserImpl -> f (Entity UserImpl)

ToBackendKey SqlBackend UserImpl

Methods

toBackendKey :: Key UserImpl -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key UserImpl

(PersistQuery backend, (~) * (PersistEntityBackend UserImpl) (BaseBackend backend)) => DeleteCascade UserImpl backend

Methods

deleteCascade :: MonadIO m => Key UserImpl -> ReaderT * backend m ()

Eq (Key UserImpl)

Methods

(==) :: Key UserImpl -> Key UserImpl -> Bool

(/=) :: Key UserImpl -> Key UserImpl -> Bool

Ord (Key UserImpl)

Methods

compare :: Key UserImpl -> Key UserImpl -> Ordering

(<) :: Key UserImpl -> Key UserImpl -> Bool

(<=) :: Key UserImpl -> Key UserImpl -> Bool

(>) :: Key UserImpl -> Key UserImpl -> Bool

(>=) :: Key UserImpl -> Key UserImpl -> Bool

max :: Key UserImpl -> Key UserImpl -> Key UserImpl

min :: Key UserImpl -> Key UserImpl -> Key UserImpl

Read (Key UserImpl)

Methods

readsPrec :: Int -> ReadS (Key UserImpl)

readList :: ReadS [Key UserImpl]

readPrec :: ReadPrec (Key UserImpl)

readListPrec :: ReadPrec [Key UserImpl]

Show (Key UserImpl)

Methods

showsPrec :: Int -> Key UserImpl -> ShowS

show :: Key UserImpl -> String

showList :: [Key UserImpl] -> ShowS

PersistFieldSql (Key UserImpl)

Methods

sqlType :: Proxy * (Key UserImpl) -> SqlType

PersistField (Key UserImpl)

Methods

toPersistValue :: Key UserImpl -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key UserImpl)

ToJSON (Key UserImpl)

Methods

toJSON :: Key UserImpl -> Value

toEncoding :: Key UserImpl -> Encoding

ToHttpApiData (Key UserImpl)

Methods

toUrlPiece :: Key UserImpl -> Text

toHeader :: Key UserImpl -> ByteString

toQueryParam :: Key UserImpl -> Text

FromJSON (Key UserImpl)

Methods

parseJSON :: Value -> Parser (Key UserImpl)

FromHttpApiData (Key UserImpl)

Methods

parseUrlPiece :: Text -> Either Text (Key UserImpl)

parseHeader :: ByteString -> Either Text (Key UserImpl)

parseQueryParam :: Text -> Either Text (Key UserImpl)

PathPiece (Key UserImpl)

Methods

fromPathPiece :: Text -> Maybe (Key UserImpl)

toPathPiece :: Key UserImpl -> Text

type Rep UserImpl

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

data Unique UserImpl

data Unique UserImpl = UniqueLogin Login

type PersistEntityBackend UserImpl

type PersistEntityBackend UserImpl = SqlBackend

data Key UserImpl

data Key UserImpl = UserImplKey {

• unUserImplKey :: BackendKey SqlBackend

}

data EntityField UserImpl

data EntityField UserImpl where

• UserImplId :: EntityField UserImpl typ
• UserImplLogin :: EntityField UserImpl typ
• UserImplPassword :: EntityField UserImpl typ
• UserImplEmail :: EntityField UserImpl typ

data UserPerm

Constructors

UserPerm

Fields

• userPermUser :: !(Key UserImpl)
• userPermPermission :: !Permission

Instances

Show UserPerm

Methods

showsPrec :: Int -> UserPerm -> ShowS

show :: UserPerm -> String

showList :: [UserPerm] -> ShowS

Generic UserPerm

Associated Types

type Rep UserPerm :: * -> *

Methods

from :: UserPerm -> Rep UserPerm x

to :: Rep UserPerm x -> UserPerm

PersistFieldSql UserPerm

Methods

sqlType :: Proxy * UserPerm -> SqlType

PersistField UserPerm

Methods

toPersistValue :: UserPerm -> PersistValue

fromPersistValue :: PersistValue -> Either Text UserPerm

PersistEntity UserPerm

Associated Types

type PersistEntityBackend UserPerm :: *

data Key UserPerm :: *

data EntityField UserPerm a :: *

data Unique UserPerm :: *

Methods

keyToValues :: Key UserPerm -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key UserPerm)

persistIdField :: EntityField UserPerm (Key UserPerm)

entityDef :: Monad m => m UserPerm -> EntityDef

persistFieldDef :: EntityField UserPerm typ -> FieldDef

toPersistFields :: UserPerm -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text UserPerm

persistUniqueKeys :: UserPerm -> [Unique UserPerm]

persistUniqueToFieldNames :: Unique UserPerm -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique UserPerm -> [PersistValue]

fieldLens :: EntityField UserPerm field -> forall f. Functor f => (field -> f field) -> Entity UserPerm -> f (Entity UserPerm)

ToBackendKey SqlBackend UserPerm

Methods

toBackendKey :: Key UserPerm -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key UserPerm

(PersistQuery backend, (~) * (PersistEntityBackend UserPerm) (BaseBackend backend)) => DeleteCascade UserPerm backend

Methods

deleteCascade :: MonadIO m => Key UserPerm -> ReaderT * backend m ()

Eq (Key UserPerm)

Methods

(==) :: Key UserPerm -> Key UserPerm -> Bool

(/=) :: Key UserPerm -> Key UserPerm -> Bool

Ord (Key UserPerm)

Methods

compare :: Key UserPerm -> Key UserPerm -> Ordering

(<) :: Key UserPerm -> Key UserPerm -> Bool

(<=) :: Key UserPerm -> Key UserPerm -> Bool

(>) :: Key UserPerm -> Key UserPerm -> Bool

(>=) :: Key UserPerm -> Key UserPerm -> Bool

max :: Key UserPerm -> Key UserPerm -> Key UserPerm

min :: Key UserPerm -> Key UserPerm -> Key UserPerm

Read (Key UserPerm)

Methods

readsPrec :: Int -> ReadS (Key UserPerm)

readList :: ReadS [Key UserPerm]

readPrec :: ReadPrec (Key UserPerm)

readListPrec :: ReadPrec [Key UserPerm]

Show (Key UserPerm)

Methods

showsPrec :: Int -> Key UserPerm -> ShowS

show :: Key UserPerm -> String

showList :: [Key UserPerm] -> ShowS

PersistFieldSql (Key UserPerm)

Methods

sqlType :: Proxy * (Key UserPerm) -> SqlType

PersistField (Key UserPerm)

Methods

toPersistValue :: Key UserPerm -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key UserPerm)

ToJSON (Key UserPerm)

Methods

toJSON :: Key UserPerm -> Value

toEncoding :: Key UserPerm -> Encoding

ToHttpApiData (Key UserPerm)

Methods

toUrlPiece :: Key UserPerm -> Text

toHeader :: Key UserPerm -> ByteString

toQueryParam :: Key UserPerm -> Text

FromJSON (Key UserPerm)

Methods

parseJSON :: Value -> Parser (Key UserPerm)

FromHttpApiData (Key UserPerm)

Methods

parseUrlPiece :: Text -> Either Text (Key UserPerm)

parseHeader :: ByteString -> Either Text (Key UserPerm)

parseQueryParam :: Text -> Either Text (Key UserPerm)

PathPiece (Key UserPerm)

Methods

fromPathPiece :: Text -> Maybe (Key UserPerm)

toPathPiece :: Key UserPerm -> Text

type Rep UserPerm

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

data Unique UserPerm

data Unique UserPerm

type PersistEntityBackend UserPerm

type PersistEntityBackend UserPerm = SqlBackend

data Key UserPerm

data Key UserPerm = UserPermKey {

• unUserPermKey :: BackendKey SqlBackend

}

data EntityField UserPerm

data EntityField UserPerm where

• UserPermId :: EntityField UserPerm typ
• UserPermUser :: EntityField UserPerm typ
• UserPermPermission :: EntityField UserPerm typ

data AuthToken

Constructors

AuthToken

Fields

• authTokenValue :: !SimpleToken
• authTokenUser :: !(Key UserImpl)
• authTokenExpire :: !UTCTime

Instances

Show AuthToken

Methods

showsPrec :: Int -> AuthToken -> ShowS

show :: AuthToken -> String

showList :: [AuthToken] -> ShowS

Generic AuthToken

Associated Types

type Rep AuthToken :: * -> *

Methods

from :: AuthToken -> Rep AuthToken x

to :: Rep AuthToken x -> AuthToken

PersistFieldSql AuthToken

Methods

sqlType :: Proxy * AuthToken -> SqlType

PersistField AuthToken

Methods

toPersistValue :: AuthToken -> PersistValue

fromPersistValue :: PersistValue -> Either Text AuthToken

PersistEntity AuthToken

Associated Types

type PersistEntityBackend AuthToken :: *

data Key AuthToken :: *

data EntityField AuthToken a :: *

data Unique AuthToken :: *

Methods

keyToValues :: Key AuthToken -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key AuthToken)

persistIdField :: EntityField AuthToken (Key AuthToken)

entityDef :: Monad m => m AuthToken -> EntityDef

persistFieldDef :: EntityField AuthToken typ -> FieldDef

toPersistFields :: AuthToken -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text AuthToken

persistUniqueKeys :: AuthToken -> [Unique AuthToken]

persistUniqueToFieldNames :: Unique AuthToken -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique AuthToken -> [PersistValue]

fieldLens :: EntityField AuthToken field -> forall f. Functor f => (field -> f field) -> Entity AuthToken -> f (Entity AuthToken)

ToBackendKey SqlBackend AuthToken

Methods

toBackendKey :: Key AuthToken -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key AuthToken

(PersistQuery backend, (~) * (PersistEntityBackend AuthToken) (BaseBackend backend)) => DeleteCascade AuthToken backend

Methods

deleteCascade :: MonadIO m => Key AuthToken -> ReaderT * backend m ()

Eq (Key AuthToken)

Methods

(==) :: Key AuthToken -> Key AuthToken -> Bool

(/=) :: Key AuthToken -> Key AuthToken -> Bool

Ord (Key AuthToken)

Methods

compare :: Key AuthToken -> Key AuthToken -> Ordering

(<) :: Key AuthToken -> Key AuthToken -> Bool

(<=) :: Key AuthToken -> Key AuthToken -> Bool

(>) :: Key AuthToken -> Key AuthToken -> Bool

(>=) :: Key AuthToken -> Key AuthToken -> Bool

max :: Key AuthToken -> Key AuthToken -> Key AuthToken

min :: Key AuthToken -> Key AuthToken -> Key AuthToken

Read (Key AuthToken)

Methods

readsPrec :: Int -> ReadS (Key AuthToken)

readList :: ReadS [Key AuthToken]

readPrec :: ReadPrec (Key AuthToken)

readListPrec :: ReadPrec [Key AuthToken]

Show (Key AuthToken)

Methods

showsPrec :: Int -> Key AuthToken -> ShowS

show :: Key AuthToken -> String

showList :: [Key AuthToken] -> ShowS

PersistFieldSql (Key AuthToken)

Methods

sqlType :: Proxy * (Key AuthToken) -> SqlType

PersistField (Key AuthToken)

Methods

toPersistValue :: Key AuthToken -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key AuthToken)

ToJSON (Key AuthToken)

Methods

toJSON :: Key AuthToken -> Value

toEncoding :: Key AuthToken -> Encoding

ToHttpApiData (Key AuthToken)

Methods

toUrlPiece :: Key AuthToken -> Text

toHeader :: Key AuthToken -> ByteString

toQueryParam :: Key AuthToken -> Text

FromJSON (Key AuthToken)

Methods

parseJSON :: Value -> Parser (Key AuthToken)

FromHttpApiData (Key AuthToken)

Methods

parseUrlPiece :: Text -> Either Text (Key AuthToken)

parseHeader :: ByteString -> Either Text (Key AuthToken)

parseQueryParam :: Text -> Either Text (Key AuthToken)

PathPiece (Key AuthToken)

Methods

fromPathPiece :: Text -> Maybe (Key AuthToken)

toPathPiece :: Key AuthToken -> Text

type Rep AuthToken

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

data Unique AuthToken

data Unique AuthToken

type PersistEntityBackend AuthToken

type PersistEntityBackend AuthToken = SqlBackend

data Key AuthToken

data Key AuthToken = AuthTokenKey {

• unAuthTokenKey :: BackendKey SqlBackend

}

data EntityField AuthToken

data EntityField AuthToken where

• AuthTokenId :: EntityField AuthToken typ
• AuthTokenValue :: EntityField AuthToken typ
• AuthTokenUser :: EntityField AuthToken typ
• AuthTokenExpire :: EntityField AuthToken typ

data UserRestore

Constructors

UserRestore

Fields

• userRestoreValue :: !RestoreCode
• userRestoreUser :: !(Key UserImpl)
• userRestoreExpire :: !UTCTime

Instances

Show UserRestore

Methods

showsPrec :: Int -> UserRestore -> ShowS

show :: UserRestore -> String

showList :: [UserRestore] -> ShowS

Generic UserRestore

Associated Types

type Rep UserRestore :: * -> *

Methods

from :: UserRestore -> Rep UserRestore x

to :: Rep UserRestore x -> UserRestore

PersistFieldSql UserRestore

Methods

sqlType :: Proxy * UserRestore -> SqlType

PersistField UserRestore

Methods

toPersistValue :: UserRestore -> PersistValue

fromPersistValue :: PersistValue -> Either Text UserRestore

PersistEntity UserRestore

Associated Types

type PersistEntityBackend UserRestore :: *

data Key UserRestore :: *

data EntityField UserRestore a :: *

data Unique UserRestore :: *

Methods

keyToValues :: Key UserRestore -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key UserRestore)

persistIdField :: EntityField UserRestore (Key UserRestore)

entityDef :: Monad m => m UserRestore -> EntityDef

persistFieldDef :: EntityField UserRestore typ -> FieldDef

toPersistFields :: UserRestore -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text UserRestore

persistUniqueKeys :: UserRestore -> [Unique UserRestore]

persistUniqueToFieldNames :: Unique UserRestore -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique UserRestore -> [PersistValue]

fieldLens :: EntityField UserRestore field -> forall f. Functor f => (field -> f field) -> Entity UserRestore -> f (Entity UserRestore)

ToBackendKey SqlBackend UserRestore

Methods

toBackendKey :: Key UserRestore -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key UserRestore

(PersistQuery backend, (~) * (PersistEntityBackend UserRestore) (BaseBackend backend)) => DeleteCascade UserRestore backend

Methods

deleteCascade :: MonadIO m => Key UserRestore -> ReaderT * backend m ()

Eq (Key UserRestore)

Methods

(==) :: Key UserRestore -> Key UserRestore -> Bool

(/=) :: Key UserRestore -> Key UserRestore -> Bool

Ord (Key UserRestore)

Methods

compare :: Key UserRestore -> Key UserRestore -> Ordering

(<) :: Key UserRestore -> Key UserRestore -> Bool

(<=) :: Key UserRestore -> Key UserRestore -> Bool

(>) :: Key UserRestore -> Key UserRestore -> Bool

(>=) :: Key UserRestore -> Key UserRestore -> Bool

max :: Key UserRestore -> Key UserRestore -> Key UserRestore

min :: Key UserRestore -> Key UserRestore -> Key UserRestore

Read (Key UserRestore)

Methods

readsPrec :: Int -> ReadS (Key UserRestore)

readList :: ReadS [Key UserRestore]

readPrec :: ReadPrec (Key UserRestore)

readListPrec :: ReadPrec [Key UserRestore]

Show (Key UserRestore)

Methods

showsPrec :: Int -> Key UserRestore -> ShowS

show :: Key UserRestore -> String

showList :: [Key UserRestore] -> ShowS

PersistFieldSql (Key UserRestore)

Methods

sqlType :: Proxy * (Key UserRestore) -> SqlType

PersistField (Key UserRestore)

Methods

toPersistValue :: Key UserRestore -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key UserRestore)

ToJSON (Key UserRestore)

Methods

toJSON :: Key UserRestore -> Value

toEncoding :: Key UserRestore -> Encoding

ToHttpApiData (Key UserRestore)

Methods

toUrlPiece :: Key UserRestore -> Text

toHeader :: Key UserRestore -> ByteString

toQueryParam :: Key UserRestore -> Text

FromJSON (Key UserRestore)

Methods

parseJSON :: Value -> Parser (Key UserRestore)

FromHttpApiData (Key UserRestore)

Methods

parseUrlPiece :: Text -> Either Text (Key UserRestore)

parseHeader :: ByteString -> Either Text (Key UserRestore)

parseQueryParam :: Text -> Either Text (Key UserRestore)

PathPiece (Key UserRestore)

Methods

fromPathPiece :: Text -> Maybe (Key UserRestore)

toPathPiece :: Key UserRestore -> Text

type Rep UserRestore

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

data Unique UserRestore

data Unique UserRestore

type PersistEntityBackend UserRestore

type PersistEntityBackend UserRestore = SqlBackend

data Key UserRestore

data Key UserRestore = UserRestoreKey {

• unUserRestoreKey :: BackendKey SqlBackend

}

data EntityField UserRestore

data EntityField UserRestore where

• UserRestoreId :: EntityField UserRestore typ
• UserRestoreValue :: EntityField UserRestore typ
• UserRestoreUser :: EntityField UserRestore typ
• UserRestoreExpire :: EntityField UserRestore typ

data AuthUserGroup

Constructors

AuthUserGroup

Fields

• authUserGroupName :: !Text
• authUserGroupParent :: !(Maybe (Key AuthUserGroup))

Instances

Show AuthUserGroup

Methods

showsPrec :: Int -> AuthUserGroup -> ShowS

show :: AuthUserGroup -> String

showList :: [AuthUserGroup] -> ShowS

Generic AuthUserGroup

Associated Types

type Rep AuthUserGroup :: * -> *

Methods

from :: AuthUserGroup -> Rep AuthUserGroup x

to :: Rep AuthUserGroup x -> AuthUserGroup

PersistFieldSql AuthUserGroup

Methods

sqlType :: Proxy * AuthUserGroup -> SqlType

PersistField AuthUserGroup

Methods

toPersistValue :: AuthUserGroup -> PersistValue

fromPersistValue :: PersistValue -> Either Text AuthUserGroup

PersistEntity AuthUserGroup

Associated Types

type PersistEntityBackend AuthUserGroup :: *

data Key AuthUserGroup :: *

data EntityField AuthUserGroup a :: *

data Unique AuthUserGroup :: *

Methods

keyToValues :: Key AuthUserGroup -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key AuthUserGroup)

persistIdField :: EntityField AuthUserGroup (Key AuthUserGroup)

entityDef :: Monad m => m AuthUserGroup -> EntityDef

persistFieldDef :: EntityField AuthUserGroup typ -> FieldDef

toPersistFields :: AuthUserGroup -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text AuthUserGroup

persistUniqueKeys :: AuthUserGroup -> [Unique AuthUserGroup]

persistUniqueToFieldNames :: Unique AuthUserGroup -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique AuthUserGroup -> [PersistValue]

fieldLens :: EntityField AuthUserGroup field -> forall f. Functor f => (field -> f field) -> Entity AuthUserGroup -> f (Entity AuthUserGroup)

ToBackendKey SqlBackend AuthUserGroup

Methods

toBackendKey :: Key AuthUserGroup -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key AuthUserGroup

(PersistQuery backend, (~) * (PersistEntityBackend AuthUserGroup) (BaseBackend backend)) => DeleteCascade AuthUserGroup backend

Methods

deleteCascade :: MonadIO m => Key AuthUserGroup -> ReaderT * backend m ()

Eq (Key AuthUserGroup)

Methods

(==) :: Key AuthUserGroup -> Key AuthUserGroup -> Bool

(/=) :: Key AuthUserGroup -> Key AuthUserGroup -> Bool

Ord (Key AuthUserGroup)

Methods

compare :: Key AuthUserGroup -> Key AuthUserGroup -> Ordering

(<) :: Key AuthUserGroup -> Key AuthUserGroup -> Bool

(<=) :: Key AuthUserGroup -> Key AuthUserGroup -> Bool

(>) :: Key AuthUserGroup -> Key AuthUserGroup -> Bool

(>=) :: Key AuthUserGroup -> Key AuthUserGroup -> Bool

max :: Key AuthUserGroup -> Key AuthUserGroup -> Key AuthUserGroup

min :: Key AuthUserGroup -> Key AuthUserGroup -> Key AuthUserGroup

Read (Key AuthUserGroup)

Methods

readsPrec :: Int -> ReadS (Key AuthUserGroup)

readList :: ReadS [Key AuthUserGroup]

readPrec :: ReadPrec (Key AuthUserGroup)

readListPrec :: ReadPrec [Key AuthUserGroup]

Show (Key AuthUserGroup)

Methods

showsPrec :: Int -> Key AuthUserGroup -> ShowS

show :: Key AuthUserGroup -> String

showList :: [Key AuthUserGroup] -> ShowS

PersistFieldSql (Key AuthUserGroup)

Methods

sqlType :: Proxy * (Key AuthUserGroup) -> SqlType

PersistField (Key AuthUserGroup)

Methods

toPersistValue :: Key AuthUserGroup -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key AuthUserGroup)

ToJSON (Key AuthUserGroup)

Methods

toJSON :: Key AuthUserGroup -> Value

toEncoding :: Key AuthUserGroup -> Encoding

ToHttpApiData (Key AuthUserGroup)

Methods

toUrlPiece :: Key AuthUserGroup -> Text

toHeader :: Key AuthUserGroup -> ByteString

toQueryParam :: Key AuthUserGroup -> Text

FromJSON (Key AuthUserGroup)

Methods

parseJSON :: Value -> Parser (Key AuthUserGroup)

FromHttpApiData (Key AuthUserGroup)

Methods

parseUrlPiece :: Text -> Either Text (Key AuthUserGroup)

parseHeader :: ByteString -> Either Text (Key AuthUserGroup)

parseQueryParam :: Text -> Either Text (Key AuthUserGroup)

PathPiece (Key AuthUserGroup)

Methods

fromPathPiece :: Text -> Maybe (Key AuthUserGroup)

toPathPiece :: Key AuthUserGroup -> Text

type Rep AuthUserGroup

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

data Unique AuthUserGroup

data Unique AuthUserGroup

type PersistEntityBackend AuthUserGroup

type PersistEntityBackend AuthUserGroup = SqlBackend

data Key AuthUserGroup

data Key AuthUserGroup = AuthUserGroupKey {

• unAuthUserGroupKey :: BackendKey SqlBackend

}

data EntityField AuthUserGroup

data EntityField AuthUserGroup where

• AuthUserGroupId :: EntityField AuthUserGroup typ
• AuthUserGroupName :: EntityField AuthUserGroup typ
• AuthUserGroupParent :: EntityField AuthUserGroup typ

data AuthUserGroupUsers

Constructors

AuthUserGroupUsers

Fields

• authUserGroupUsersGroup :: !(Key AuthUserGroup)
• authUserGroupUsersUser :: !(Key UserImpl)

Instances

Show AuthUserGroupUsers

Methods

showsPrec :: Int -> AuthUserGroupUsers -> ShowS

show :: AuthUserGroupUsers -> String

showList :: [AuthUserGroupUsers] -> ShowS

Generic AuthUserGroupUsers

Associated Types

type Rep AuthUserGroupUsers :: * -> *

Methods

from :: AuthUserGroupUsers -> Rep AuthUserGroupUsers x

to :: Rep AuthUserGroupUsers x -> AuthUserGroupUsers

PersistFieldSql AuthUserGroupUsers

Methods

sqlType :: Proxy * AuthUserGroupUsers -> SqlType

PersistField AuthUserGroupUsers

Methods

toPersistValue :: AuthUserGroupUsers -> PersistValue

fromPersistValue :: PersistValue -> Either Text AuthUserGroupUsers

PersistEntity AuthUserGroupUsers

Associated Types

type PersistEntityBackend AuthUserGroupUsers :: *

data Key AuthUserGroupUsers :: *

data EntityField AuthUserGroupUsers a :: *

data Unique AuthUserGroupUsers :: *

Methods

keyToValues :: Key AuthUserGroupUsers -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key AuthUserGroupUsers)

persistIdField :: EntityField AuthUserGroupUsers (Key AuthUserGroupUsers)

entityDef :: Monad m => m AuthUserGroupUsers -> EntityDef

persistFieldDef :: EntityField AuthUserGroupUsers typ -> FieldDef

toPersistFields :: AuthUserGroupUsers -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text AuthUserGroupUsers

persistUniqueKeys :: AuthUserGroupUsers -> [Unique AuthUserGroupUsers]

persistUniqueToFieldNames :: Unique AuthUserGroupUsers -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique AuthUserGroupUsers -> [PersistValue]

fieldLens :: EntityField AuthUserGroupUsers field -> forall f. Functor f => (field -> f field) -> Entity AuthUserGroupUsers -> f (Entity AuthUserGroupUsers)

ToBackendKey SqlBackend AuthUserGroupUsers

Methods

toBackendKey :: Key AuthUserGroupUsers -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key AuthUserGroupUsers

(PersistQuery backend, (~) * (PersistEntityBackend AuthUserGroupUsers) (BaseBackend backend)) => DeleteCascade AuthUserGroupUsers backend

Methods

deleteCascade :: MonadIO m => Key AuthUserGroupUsers -> ReaderT * backend m ()

Eq (Key AuthUserGroupUsers)

Methods

(==) :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Bool

(/=) :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Bool

Ord (Key AuthUserGroupUsers)

Methods

compare :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Ordering

(<) :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Bool

(<=) :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Bool

(>) :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Bool

(>=) :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Bool

max :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Key AuthUserGroupUsers

min :: Key AuthUserGroupUsers -> Key AuthUserGroupUsers -> Key AuthUserGroupUsers

Read (Key AuthUserGroupUsers)

Methods

readsPrec :: Int -> ReadS (Key AuthUserGroupUsers)

readList :: ReadS [Key AuthUserGroupUsers]

readPrec :: ReadPrec (Key AuthUserGroupUsers)

readListPrec :: ReadPrec [Key AuthUserGroupUsers]

Show (Key AuthUserGroupUsers)

Methods

showsPrec :: Int -> Key AuthUserGroupUsers -> ShowS

show :: Key AuthUserGroupUsers -> String

showList :: [Key AuthUserGroupUsers] -> ShowS

PersistFieldSql (Key AuthUserGroupUsers)

Methods

sqlType :: Proxy * (Key AuthUserGroupUsers) -> SqlType

PersistField (Key AuthUserGroupUsers)

Methods

toPersistValue :: Key AuthUserGroupUsers -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key AuthUserGroupUsers)

ToJSON (Key AuthUserGroupUsers)

Methods

toJSON :: Key AuthUserGroupUsers -> Value

toEncoding :: Key AuthUserGroupUsers -> Encoding

ToHttpApiData (Key AuthUserGroupUsers)

Methods

toUrlPiece :: Key AuthUserGroupUsers -> Text

toHeader :: Key AuthUserGroupUsers -> ByteString

toQueryParam :: Key AuthUserGroupUsers -> Text

FromJSON (Key AuthUserGroupUsers)

Methods

parseJSON :: Value -> Parser (Key AuthUserGroupUsers)

FromHttpApiData (Key AuthUserGroupUsers)

Methods

parseUrlPiece :: Text -> Either Text (Key AuthUserGroupUsers)

parseHeader :: ByteString -> Either Text (Key AuthUserGroupUsers)

parseQueryParam :: Text -> Either Text (Key AuthUserGroupUsers)

PathPiece (Key AuthUserGroupUsers)

Methods

fromPathPiece :: Text -> Maybe (Key AuthUserGroupUsers)

toPathPiece :: Key AuthUserGroupUsers -> Text

type Rep AuthUserGroupUsers

type Rep AuthUserGroupUsers = D1 (MetaData "AuthUserGroupUsers" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.3.2.0-6P5olFkNRPc8iz1OVYHvKR" False) (C1 (MetaCons "AuthUserGroupUsers" PrefixI True) ((:*:) (S1 (MetaSel (Just Symbol "authUserGroupUsersGroup") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Key AuthUserGroup))) (S1 (MetaSel (Just Symbol "authUserGroupUsersUser") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Key UserImpl)))))

data Unique AuthUserGroupUsers

data Unique AuthUserGroupUsers

type PersistEntityBackend AuthUserGroupUsers

type PersistEntityBackend AuthUserGroupUsers = SqlBackend

data Key AuthUserGroupUsers

data Key AuthUserGroupUsers = AuthUserGroupUsersKey {

• unAuthUserGroupUsersKey :: BackendKey SqlBackend

}

data EntityField AuthUserGroupUsers

data EntityField AuthUserGroupUsers where

• AuthUserGroupUsersId :: EntityField AuthUserGroupUsers typ
• AuthUserGroupUsersGroup :: EntityField AuthUserGroupUsers typ
• AuthUserGroupUsersUser :: EntityField AuthUserGroupUsers typ

data AuthUserGroupPerms

Constructors

AuthUserGroupPerms

Fields

• authUserGroupPermsGroup :: !(Key AuthUserGroup)
• authUserGroupPermsPermission :: !Permission

Instances

Show AuthUserGroupPerms

Methods

showsPrec :: Int -> AuthUserGroupPerms -> ShowS

show :: AuthUserGroupPerms -> String

showList :: [AuthUserGroupPerms] -> ShowS

Generic AuthUserGroupPerms

Associated Types

type Rep AuthUserGroupPerms :: * -> *

Methods

from :: AuthUserGroupPerms -> Rep AuthUserGroupPerms x

to :: Rep AuthUserGroupPerms x -> AuthUserGroupPerms

PersistFieldSql AuthUserGroupPerms

Methods

sqlType :: Proxy * AuthUserGroupPerms -> SqlType

PersistField AuthUserGroupPerms

Methods

toPersistValue :: AuthUserGroupPerms -> PersistValue

fromPersistValue :: PersistValue -> Either Text AuthUserGroupPerms

PersistEntity AuthUserGroupPerms

Associated Types

type PersistEntityBackend AuthUserGroupPerms :: *

data Key AuthUserGroupPerms :: *

data EntityField AuthUserGroupPerms a :: *

data Unique AuthUserGroupPerms :: *

Methods

keyToValues :: Key AuthUserGroupPerms -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key AuthUserGroupPerms)

persistIdField :: EntityField AuthUserGroupPerms (Key AuthUserGroupPerms)

entityDef :: Monad m => m AuthUserGroupPerms -> EntityDef

persistFieldDef :: EntityField AuthUserGroupPerms typ -> FieldDef

toPersistFields :: AuthUserGroupPerms -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text AuthUserGroupPerms

persistUniqueKeys :: AuthUserGroupPerms -> [Unique AuthUserGroupPerms]

persistUniqueToFieldNames :: Unique AuthUserGroupPerms -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique AuthUserGroupPerms -> [PersistValue]

fieldLens :: EntityField AuthUserGroupPerms field -> forall f. Functor f => (field -> f field) -> Entity AuthUserGroupPerms -> f (Entity AuthUserGroupPerms)

ToBackendKey SqlBackend AuthUserGroupPerms

Methods

toBackendKey :: Key AuthUserGroupPerms -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key AuthUserGroupPerms

(PersistQuery backend, (~) * (PersistEntityBackend AuthUserGroupPerms) (BaseBackend backend)) => DeleteCascade AuthUserGroupPerms backend

Methods

deleteCascade :: MonadIO m => Key AuthUserGroupPerms -> ReaderT * backend m ()

Eq (Key AuthUserGroupPerms)

Methods

(==) :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Bool

(/=) :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Bool

Ord (Key AuthUserGroupPerms)

Methods

compare :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Ordering

(<) :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Bool

(<=) :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Bool

(>) :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Bool

(>=) :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Bool

max :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Key AuthUserGroupPerms

min :: Key AuthUserGroupPerms -> Key AuthUserGroupPerms -> Key AuthUserGroupPerms

Read (Key AuthUserGroupPerms)

Methods

readsPrec :: Int -> ReadS (Key AuthUserGroupPerms)

readList :: ReadS [Key AuthUserGroupPerms]

readPrec :: ReadPrec (Key AuthUserGroupPerms)

readListPrec :: ReadPrec [Key AuthUserGroupPerms]

Show (Key AuthUserGroupPerms)

Methods

showsPrec :: Int -> Key AuthUserGroupPerms -> ShowS

show :: Key AuthUserGroupPerms -> String

showList :: [Key AuthUserGroupPerms] -> ShowS

PersistFieldSql (Key AuthUserGroupPerms)

Methods

sqlType :: Proxy * (Key AuthUserGroupPerms) -> SqlType

PersistField (Key AuthUserGroupPerms)

Methods

toPersistValue :: Key AuthUserGroupPerms -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key AuthUserGroupPerms)

ToJSON (Key AuthUserGroupPerms)

Methods

toJSON :: Key AuthUserGroupPerms -> Value

toEncoding :: Key AuthUserGroupPerms -> Encoding

ToHttpApiData (Key AuthUserGroupPerms)

Methods

toUrlPiece :: Key AuthUserGroupPerms -> Text

toHeader :: Key AuthUserGroupPerms -> ByteString

toQueryParam :: Key AuthUserGroupPerms -> Text

FromJSON (Key AuthUserGroupPerms)

Methods

parseJSON :: Value -> Parser (Key AuthUserGroupPerms)

FromHttpApiData (Key AuthUserGroupPerms)

Methods

parseUrlPiece :: Text -> Either Text (Key AuthUserGroupPerms)

parseHeader :: ByteString -> Either Text (Key AuthUserGroupPerms)

parseQueryParam :: Text -> Either Text (Key AuthUserGroupPerms)

PathPiece (Key AuthUserGroupPerms)

Methods

fromPathPiece :: Text -> Maybe (Key AuthUserGroupPerms)

toPathPiece :: Key AuthUserGroupPerms -> Text

type Rep AuthUserGroupPerms

type Rep AuthUserGroupPerms = D1 (MetaData "AuthUserGroupPerms" "Servant.Server.Auth.Token.Model" "servant-auth-token-0.3.2.0-6P5olFkNRPc8iz1OVYHvKR" False) (C1 (MetaCons "AuthUserGroupPerms" PrefixI True) ((:*:) (S1 (MetaSel (Just Symbol "authUserGroupPermsGroup") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Key AuthUserGroup))) (S1 (MetaSel (Just Symbol "authUserGroupPermsPermission") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Permission))))

data Unique AuthUserGroupPerms

data Unique AuthUserGroupPerms

type PersistEntityBackend AuthUserGroupPerms

type PersistEntityBackend AuthUserGroupPerms = SqlBackend

data Key AuthUserGroupPerms

data Key AuthUserGroupPerms = AuthUserGroupPermsKey {

• unAuthUserGroupPermsKey :: BackendKey SqlBackend

}

data EntityField AuthUserGroupPerms

data EntityField AuthUserGroupPerms where

• AuthUserGroupPermsId :: EntityField AuthUserGroupPerms typ
• AuthUserGroupPermsGroup :: EntityField AuthUserGroupPerms typ
• AuthUserGroupPermsPermission :: EntityField AuthUserGroupPerms typ

data family EntityField record a :: *

Instances

data EntityField AuthUserGroupPerms

data EntityField AuthUserGroupPerms where

• AuthUserGroupPermsId :: EntityField AuthUserGroupPerms typ
• AuthUserGroupPermsGroup :: EntityField AuthUserGroupPerms typ
• AuthUserGroupPermsPermission :: EntityField AuthUserGroupPerms typ

data EntityField AuthUserGroupUsers

data EntityField AuthUserGroupUsers where

• AuthUserGroupUsersId :: EntityField AuthUserGroupUsers typ
• AuthUserGroupUsersGroup :: EntityField AuthUserGroupUsers typ
• AuthUserGroupUsersUser :: EntityField AuthUserGroupUsers typ

data EntityField AuthUserGroup

data EntityField AuthUserGroup where

• AuthUserGroupId :: EntityField AuthUserGroup typ
• AuthUserGroupName :: EntityField AuthUserGroup typ
• AuthUserGroupParent :: EntityField AuthUserGroup typ

data EntityField UserSingleUseCode

data EntityField UserSingleUseCode where

• UserSingleUseCodeId :: EntityField UserSingleUseCode typ
• UserSingleUseCodeValue :: EntityField UserSingleUseCode typ
• UserSingleUseCodeUser :: EntityField UserSingleUseCode typ
• UserSingleUseCodeExpire :: EntityField UserSingleUseCode typ
• UserSingleUseCodeUsed :: EntityField UserSingleUseCode typ

data EntityField UserRestore

data EntityField UserRestore where

• UserRestoreId :: EntityField UserRestore typ
• UserRestoreValue :: EntityField UserRestore typ
• UserRestoreUser :: EntityField UserRestore typ
• UserRestoreExpire :: EntityField UserRestore typ

data EntityField AuthToken

data EntityField AuthToken where

• AuthTokenId :: EntityField AuthToken typ
• AuthTokenValue :: EntityField AuthToken typ
• AuthTokenUser :: EntityField AuthToken typ
• AuthTokenExpire :: EntityField AuthToken typ

data EntityField UserPerm

data EntityField UserPerm where

• UserPermId :: EntityField UserPerm typ
• UserPermUser :: EntityField UserPerm typ
• UserPermPermission :: EntityField UserPerm typ

data EntityField UserImpl

data EntityField UserImpl where

• UserImplId :: EntityField UserImpl typ
• UserImplLogin :: EntityField UserImpl typ
• UserImplPassword :: EntityField UserImpl typ
• UserImplEmail :: EntityField UserImpl typ

data UserSingleUseCode

Constructors

UserSingleUseCode

Fields

• userSingleUseCodeValue :: !SingleUseCode
• userSingleUseCodeUser :: !(Key UserImpl)
• userSingleUseCodeExpire :: !(Maybe UTCTime)
• userSingleUseCodeUsed :: !(Maybe UTCTime)

Instances

Show UserSingleUseCode

Methods

showsPrec :: Int -> UserSingleUseCode -> ShowS

show :: UserSingleUseCode -> String

showList :: [UserSingleUseCode] -> ShowS

Generic UserSingleUseCode

Associated Types

type Rep UserSingleUseCode :: * -> *

Methods

from :: UserSingleUseCode -> Rep UserSingleUseCode x

to :: Rep UserSingleUseCode x -> UserSingleUseCode

PersistFieldSql UserSingleUseCode

Methods

sqlType :: Proxy * UserSingleUseCode -> SqlType

PersistField UserSingleUseCode

Methods

toPersistValue :: UserSingleUseCode -> PersistValue

fromPersistValue :: PersistValue -> Either Text UserSingleUseCode

PersistEntity UserSingleUseCode

Associated Types

type PersistEntityBackend UserSingleUseCode :: *

data Key UserSingleUseCode :: *

data EntityField UserSingleUseCode a :: *

data Unique UserSingleUseCode :: *

Methods

keyToValues :: Key UserSingleUseCode -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key UserSingleUseCode)

persistIdField :: EntityField UserSingleUseCode (Key UserSingleUseCode)

entityDef :: Monad m => m UserSingleUseCode -> EntityDef

persistFieldDef :: EntityField UserSingleUseCode typ -> FieldDef

toPersistFields :: UserSingleUseCode -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text UserSingleUseCode

persistUniqueKeys :: UserSingleUseCode -> [Unique UserSingleUseCode]

persistUniqueToFieldNames :: Unique UserSingleUseCode -> [(HaskellName, DBName)]

persistUniqueToValues :: Unique UserSingleUseCode -> [PersistValue]

fieldLens :: EntityField UserSingleUseCode field -> forall f. Functor f => (field -> f field) -> Entity UserSingleUseCode -> f (Entity UserSingleUseCode)

ToBackendKey SqlBackend UserSingleUseCode

Methods

toBackendKey :: Key UserSingleUseCode -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key UserSingleUseCode

(PersistQuery backend, (~) * (PersistEntityBackend UserSingleUseCode) (BaseBackend backend)) => DeleteCascade UserSingleUseCode backend

Methods

deleteCascade :: MonadIO m => Key UserSingleUseCode -> ReaderT * backend m ()

Eq (Key UserSingleUseCode)

Methods

(==) :: Key UserSingleUseCode -> Key UserSingleUseCode -> Bool

(/=) :: Key UserSingleUseCode -> Key UserSingleUseCode -> Bool

Ord (Key UserSingleUseCode)

Methods

compare :: Key UserSingleUseCode -> Key UserSingleUseCode -> Ordering

(<) :: Key UserSingleUseCode -> Key UserSingleUseCode -> Bool

(<=) :: Key UserSingleUseCode -> Key UserSingleUseCode -> Bool

(>) :: Key UserSingleUseCode -> Key UserSingleUseCode -> Bool

(>=) :: Key UserSingleUseCode -> Key UserSingleUseCode -> Bool

max :: Key UserSingleUseCode -> Key UserSingleUseCode -> Key UserSingleUseCode

min :: Key UserSingleUseCode -> Key UserSingleUseCode -> Key UserSingleUseCode

Read (Key UserSingleUseCode)

Methods

readsPrec :: Int -> ReadS (Key UserSingleUseCode)

readList :: ReadS [Key UserSingleUseCode]

readPrec :: ReadPrec (Key UserSingleUseCode)

readListPrec :: ReadPrec [Key UserSingleUseCode]

Show (Key UserSingleUseCode)

Methods

showsPrec :: Int -> Key UserSingleUseCode -> ShowS

show :: Key UserSingleUseCode -> String

showList :: [Key UserSingleUseCode] -> ShowS

PersistFieldSql (Key UserSingleUseCode)

Methods

sqlType :: Proxy * (Key UserSingleUseCode) -> SqlType

PersistField (Key UserSingleUseCode)

Methods

toPersistValue :: Key UserSingleUseCode -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key UserSingleUseCode)

ToJSON (Key UserSingleUseCode)

Methods

toJSON :: Key UserSingleUseCode -> Value

toEncoding :: Key UserSingleUseCode -> Encoding

ToHttpApiData (Key UserSingleUseCode)

Methods

toUrlPiece :: Key UserSingleUseCode -> Text

toHeader :: Key UserSingleUseCode -> ByteString

toQueryParam :: Key UserSingleUseCode -> Text

FromJSON (Key UserSingleUseCode)

Methods

parseJSON :: Value -> Parser (Key UserSingleUseCode)

FromHttpApiData (Key UserSingleUseCode)

Methods

parseUrlPiece :: Text -> Either Text (Key UserSingleUseCode)

parseHeader :: ByteString -> Either Text (Key UserSingleUseCode)

parseQueryParam :: Text -> Either Text (Key UserSingleUseCode)

PathPiece (Key UserSingleUseCode)

Methods

fromPathPiece :: Text -> Maybe (Key UserSingleUseCode)

toPathPiece :: Key UserSingleUseCode -> Text

type Rep UserSingleUseCode

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

data Unique UserSingleUseCode

data Unique UserSingleUseCode

type PersistEntityBackend UserSingleUseCode

type PersistEntityBackend UserSingleUseCode = SqlBackend

data Key UserSingleUseCode

data Key UserSingleUseCode = UserSingleUseCodeKey {

• unUserSingleUseCodeKey :: BackendKey SqlBackend

}

data EntityField UserSingleUseCode

data EntityField UserSingleUseCode where

• UserSingleUseCodeId :: EntityField UserSingleUseCode typ
• UserSingleUseCodeValue :: EntityField UserSingleUseCode typ
• UserSingleUseCodeUser :: EntityField UserSingleUseCode typ
• UserSingleUseCodeExpire :: EntityField UserSingleUseCode typ
• UserSingleUseCodeUsed :: EntityField UserSingleUseCode typ

IDs of entities

type UserImplId = Key UserImpl

type UserPermId = Key UserPerm

type AuthTokenId = Key AuthToken

type UserRestoreId = Key UserRestore

type AuthUserGroupId = Key AuthUserGroup

type AuthUserGroupUsersId = Key AuthUserGroupUsers

type AuthUserGroupPermsId = Key AuthUserGroupPerms

type UserSingleUseCodeId = Key UserSingleUseCode

Operations

runDB :: (MonadReader AuthConfig m, MonadIO m) => SqlPersistT IO b -> m b

Execute database transaction

migrateAll :: Migration

passToByteString :: Password -> ByteString

Convert password to bytestring

byteStringToPass :: ByteString -> Password

Convert bytestring into password

User

userToUserInfo :: Entity UserImpl -> [Permission] -> [UserGroupId] -> RespUserInfo

Helper to convert user to response

readUserInfo :: UserId -> SqlPersistT IO (Maybe RespUserInfo)

Get user by id

readUserInfoByLogin :: Login -> SqlPersistT IO (Maybe RespUserInfo)

Get user by login

getUserPermissions :: UserImplId -> SqlPersistT IO [Permission]

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

setUserPermissions :: UserImplId -> [Permission] -> SqlPersistT IO ()

Return list of permissions for the given user

createUser :: Int -> Login -> Password -> Email -> [Permission] -> SqlPersistT IO UserImplId

Creation of new user

hasPerm :: UserImplId -> Permission -> SqlPersistT IO Bool

Check whether the user has particular permission

hasPerms :: UserImplId -> [Permission] -> SqlPersistT IO Bool

Check whether the user has particular permissions

createAdmin :: Int -> Login -> Password -> Email -> SqlPersistT IO UserImplId

Creates user with admin privileges

ensureAdmin :: Int -> Login -> Password -> Email -> SqlPersistT IO ()

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

patchUser

Arguments

:: Int

Password strength

-> PatchUser

-> Entity UserImpl

-> SqlPersistT IO (Entity UserImpl)

Apply patches for user

setUserPassword'

Arguments

:: MonadIO m

=> Int

Password strength

-> Password

-> UserImpl

-> m UserImpl

Update password of user

User groups

getUserGroups :: UserImplId -> SqlPersistT IO [UserGroupId]

Get all groups the user belongs to

setUserGroups :: UserImplId -> [UserGroupId] -> SqlPersistT IO ()

Rewrite all user groups

validateGroups :: [UserGroupId] -> SqlPersistT IO [AuthUserGroupId]

Leave only existing groups

getGroupPermissions :: UserGroupId -> SqlPersistT IO [Permission]

Getting permission of a group and all it parent groups

getUserGroupPermissions :: UserImplId -> SqlPersistT IO [Permission]

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

getUserAllPermissions :: UserImplId -> SqlPersistT IO [Permission]

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

readUserGroup :: UserGroupId -> SqlPersistT IO (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 :: UserGroup -> SqlPersistT IO UserGroupId

Insert user group into RDBMS

updateUserGroup :: UserGroupId -> UserGroup -> SqlPersistT IO ()

Replace user group with new value

deleteUserGroup :: UserGroupId -> SqlPersistT IO ()

Erase user group from RDBMS, cascade

patchUserGroup :: UserGroupId -> PatchUserGroup -> SqlPersistT IO ()

Partial update of user group