begin slowly

This commit is contained in:
nek0 2020-05-10 08:35:32 +02:00
parent f1a81acb2b
commit 465c73ff6e
2 changed files with 24 additions and 0 deletions

5
src/Model/Role.hs Normal file
View file

@ -0,0 +1,5 @@
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE Arrows #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Model.Role where

19
src/Types/Role.hs Normal file
View file

@ -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
}