TsWeb.Tables.Session.Test

Documentation

data UsersMixin f

Some sample user info

Constructors

Address

Fields

• loginid :: C f Int
• masqid :: C f Int
• remember :: C f Bool

Instances

Beamable UsersMixin

Defined in TsWeb.Tables.Session.Test

Methods

zipBeamFieldsM :: Applicative m => (forall a. Columnar' f a -> Columnar' g a -> m (Columnar' h a)) -> UsersMixin f -> UsersMixin g -> m (UsersMixin h)

tblSkeleton :: TableSkeleton UsersMixin

UserData Users

Defined in TsWeb.Tables.Session.Test

Methods

rememberMe :: Users -> Bool

Generic (UsersMixin f)

Defined in TsWeb.Tables.Session.Test

Associated Types

type Rep (UsersMixin f) :: Type -> Type

Methods

from :: UsersMixin f -> Rep (UsersMixin f) x

to :: Rep (UsersMixin f) x -> UsersMixin f

type Rep (UsersMixin f)

Defined in TsWeb.Tables.Session.Test

type Rep (UsersMixin f) = D1 (MetaData "UsersMixin" "TsWeb.Tables.Session.Test" "tsweb-0.1.0.0-LWBh5ZDtCK97War1o0evkf" False) (C1 (MetaCons "Address" PrefixI True) (S1 (MetaSel (Just "loginid") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (C f Int)) :*: (S1 (MetaSel (Just "masqid") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (C f Int)) :*: S1 (MetaSel (Just "remember") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (C f Bool)))))

type Users = UsersMixin Identity

Concrete type for users

type Sess conn st = Session conn Users st

Spock session alias to use our User

data Db f

Beam database definition to hold our session

Constructors

Db

Fields

• session :: f (TableEntity (SessionT UsersMixin))

Instances

Database be Db

Defined in TsWeb.Tables.Session.Test

Methods

zipTables :: Monad m => Proxy be -> (forall tbl. (IsDatabaseEntity be tbl, DatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> Db f -> Db g -> m (Db h)

Generic (Db f)

Defined in TsWeb.Tables.Session.Test

Associated Types

type Rep (Db f) :: Type -> Type

Methods

from :: Db f -> Rep (Db f) x

to :: Rep (Db f) x -> Db f

type Rep (Db f)

Defined in TsWeb.Tables.Session.Test

type Rep (Db f) = D1 (MetaData "Db" "TsWeb.Tables.Session.Test" "tsweb-0.1.0.0-LWBh5ZDtCK97War1o0evkf" False) (C1 (MetaCons "Db" PrefixI True) (S1 (MetaSel (Just "session") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (f (TableEntity (SessionT UsersMixin))))))

db :: DatabaseSettings be Db

Beam database instance

patch :: Pool ReadOnlyConn -> Pool ReadWriteConn -> SpockCfg conn Users st -> SpockCfg conn Users st

Sample of patch to be sure that all the types work enough to make a spock config wrapper