begin slowly

src/Model/Role.hs

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

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