rename main module of executable

This commit is contained in:
nek0 2021-02-01 02:24:41 +01:00
parent 98d3f2733c
commit a7cc24b73a
1 changed files with 3 additions and 11 deletions

View File

@ -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