diff --git a/src/Types/Role.hs b/src/Types/Role.hs index 30d61f1..acef3d4 100644 --- a/src/Types/Role.hs +++ b/src/Types/Role.hs @@ -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