tinker roles

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

View File

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