From 465c73ff6eb4d7b640e6d35e02fbf6f070f77bc8 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 10 May 2020 08:35:32 +0200 Subject: [PATCH] begin slowly --- src/Model/Role.hs | 5 +++++ src/Types/Role.hs | 19 +++++++++++++++++++ 2 files changed, 24 insertions(+) create mode 100644 src/Model/Role.hs create mode 100644 src/Types/Role.hs 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 + }