rename main module of executable

This commit is contained in:
nek0 2021-02-01 02:24:41 +01:00
parent 98d3f2733c
commit a7cc24b73a

View file

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