diff --git a/app/Main.hs b/app/AppMain.hs similarity index 94% rename from app/Main.hs rename to app/AppMain.hs index 7e9f077..ea0ad87 100644 --- a/app/Main.hs +++ b/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