various cleanups

src/Types/Role.hs

@@ -5,8 +5,6 @@ module Types.Role where
 import qualified Data.Text as T
 import Data.Aeson
 
-import Data.Time (UTCTime)
-
 import GHC.Generics
 
 -- internal imports
@@ -17,10 +15,11 @@ import Classes.FromDatabase
 data Role = Role
   { roleID                 :: Int
   , roleName               :: T.Text
+  -- | Can add new items into the stock of already existing products
   , roleCanRefillStock     :: Bool
-  -- | paying invoice only adds to user funds
+  -- | Paying invoice only adds to user funds
   , roleCanPayInvoice      :: Bool
-  -- | paying out actually removes money from the cashier
+  -- | Paying out actually removes money from the cashier
   , roleCanPayOut          :: Bool
   , roleCanManageProducts  :: Bool
   , roleCanManageJournal   :: Bool

src/Util.hs

@@ -31,19 +31,19 @@ import Model
 import Types
 
 printSql :: Default Unpackspec a a => Select a -> IO ()
-printSql = putStrLn . fromMaybe "Empty query" . showSqlForPostgres
+printSql = putStrLn . fromMaybe "Empty query" . showSql
 
 initDB :: Connection -> IO ()
 initDB conn = do
-  execute_ conn initAvatar
+  void $ execute_ conn initAvatar
-  execute_ conn initUser
+  void $ execute_ conn initUser
-  execute_ conn initProduct
+  void $ execute_ conn initProduct
-  execute_ conn initToken
+  void $ execute_ conn initToken
-  execute_ conn initAuthData
+  void $ execute_ conn initAuthData
-  execute_ conn initAmount
+  void $ execute_ conn initAmount
-  execute_ conn initJournal
+  void $ execute_ conn initJournal
-  execute_ conn initRole
+  void $ execute_ conn initRole
-  execute_ conn initUserToRole
+  void $ execute_ conn initUserToRole
   void $ runInsertInitialRoles conn
 
 -- This is only a dummy function.