diff --git a/src/Model/Role.hs b/src/Model/Role.hs new file mode 100644 index 0000000..7156c18 --- /dev/null +++ b/src/Model/Role.hs @@ -0,0 +1,5 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE Arrows #-} +{-# LANGUAGE ScopedTypeVariables #-} +module Model.Role where diff --git a/src/Types/Role.hs b/src/Types/Role.hs new file mode 100644 index 0000000..f493a38 --- /dev/null +++ b/src/Types/Role.hs @@ -0,0 +1,19 @@ +module Types.Role where + +import qualified Data.Text as T + +data Role = Role + { roleID :: Int + , roleName :: T.Text + , roleCanRefillStock :: Bool + , roleCanAddProduct :: Bool + , roleCanViewJournal :: Bool + , roleCanPayInvoice :: Bool + , roleCanPayOut :: Bool + , roleCanManageProducts :: Bool + , roleCanManageJournal :: Bool + , roleCanManageUsers :: Bool + , roleCanManageRoles :: Bool + , roleCanManageSuppliers :: Bool + , roleCanManageSettings :: Bool + }