mateamt/src/Types/Role.hs

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
  }

data RoleSubmit = RoleSubmit
  { roleSubmitName               :: T.Text
  , roleSubmitCanRefillStock     :: Bool
  , roleSubmitCanAddProduct      :: Bool
  , roleSubmitCanViewJournal     :: Bool
  , roleSubmitCanPayInvoice      :: Bool
  , roleSubmitCanPayOut          :: Bool
  , roleSubmitCanManageProducts  :: Bool
  , roleSubmitCanManageJournal   :: Bool
  , roleSubmitCanManageUsers     :: Bool
  , roleSubmitCanManageRoles     :: Bool
  , roleSubmitCanManageSuppliers :: Bool
  , roleSubmitCanManageSettings  :: Bool
  }

data RoleAssociation = RoleAssociation
  { roleAssociationId   :: Int
  , roleAssociationUser :: Int
  , roleAssociationRole :: Int
  }

data RoleAssociationSubmit = RoleAssociationSubmit
  { roleAssociationSubmitUser :: Int
  , roleAssociationSubmitRole :: Int
  }