rename main module of executable

app/AppMain.hs

@@ -3,7 +3,7 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE FlexibleContexts #-}
-module Main where
+module AppMain where
 
 import Prelude as P
 
@@ -45,6 +45,7 @@ import System.Exit
 -- internal imports
 
 import API
+import Util (initDB)
 import Model as M
 
 import AppTypes
@@ -93,16 +94,7 @@ main = do
               void $ do
                 runMigration $
                   MigrationContext MigrationInitialization True conn
-                execute_ conn initAvatar
-                execute_ conn initUser
-                execute_ conn initProduct
-                execute_ conn initToken
-                execute_ conn initAuthData
-                execute_ conn initAmount
-                execute_ conn initJournal
-                execute_ conn initRole
-                execute_ conn initUserToRole
-                void $ runInsertInitialRoles conn
+                initDB conn
           -- validate Migrations
           let migLoc = T.unpack tMigLoc
           ok <- withTransaction conn $ runMigration $ MigrationContext