nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

tinker roles

Browse source
This commit is contained in:
nek0 2020-08-24 10:50:59 +02:00
parent 69aa5b4e09
commit b69acb3dbf
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Types/Role.hs
View file

@ -11,12 +11,14 @@ data Role = Role
, roleName :: T.Text , roleName :: T.Text
, roleCanRefillStock :: Bool , roleCanRefillStock :: Bool
-- , roleCanAddProduct :: Bool -- , roleCanAddProduct :: Bool
, roleCanViewJournal :: Bool -- , roleCanViewJournal :: Bool
-- | paying invoice only adds to user funds
, roleCanPayInvoice :: Bool , roleCanPayInvoice :: Bool
-- | paying out actually removes money from the cashier
, roleCanPayOut :: Bool , roleCanPayOut :: Bool
, roleCanManageProducts :: Bool , roleCanManageProducts :: Bool
, roleCanManageJournal :: Bool , roleCanManageJournal :: Bool
-- , roleCanManageUsers :: Bool , roleCanManageUsers :: Bool
, roleCanManageRoles :: Bool , roleCanManageRoles :: Bool
, roleCanManageSuppliers :: Bool , roleCanManageSuppliers :: Bool
, roleCanManageSettings :: Bool , roleCanManageSettings :: Bool
@ -32,12 +34,12 @@ data RoleSubmit = RoleSubmit
{ roleSubmitName :: T.Text { roleSubmitName :: T.Text
, roleSubmitCanRefillStock :: Bool , roleSubmitCanRefillStock :: Bool
-- , roleSubmitCanAddProduct :: Bool -- , roleSubmitCanAddProduct :: Bool
, roleSubmitCanViewJournal :: Bool -- , roleSubmitCanViewJournal :: Bool
, roleSubmitCanPayInvoice :: Bool , roleSubmitCanPayInvoice :: Bool
, roleSubmitCanPayOut :: Bool , roleSubmitCanPayOut :: Bool
, roleSubmitCanManageProducts :: Bool , roleSubmitCanManageProducts :: Bool
, roleSubmitCanManageJournal :: Bool , roleSubmitCanManageJournal :: Bool
-- , roleSubmitCanManageUsers :: Bool , roleSubmitCanManageUsers :: Bool
, roleSubmitCanManageRoles :: Bool , roleSubmitCanManageRoles :: Bool
, roleSubmitCanManageSuppliers :: Bool , roleSubmitCanManageSuppliers :: Bool
, roleSubmitCanManageSettings :: Bool , roleSubmitCanManageSettings :: Bool