mirror of
https://github.com/anoma/juvix.git
synced 2024-12-13 11:16:48 +03:00
16 lines
532 B
Haskell
16 lines
532 B
Haskell
module Main (main) where
|
|
|
|
import App
|
|
import CommonOptions
|
|
import Root
|
|
import TopCommand
|
|
import TopCommand.Options
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let parserPreferences = prefs showHelpOnEmpty
|
|
_runAppIOArgsInvokeDir <- getCurrentDir
|
|
(_runAppIOArgsGlobalOptions, cli) <- customExecParser parserPreferences descr
|
|
(_runAppIOArgsPkgDir, _runAppIOArgsPkg, _runAppIOArgsBuildDir) <- findRootAndChangeDir (topCommandInputFile cli) _runAppIOArgsGlobalOptions _runAppIOArgsInvokeDir
|
|
runM (runAppIO (RunAppIOArgs {..}) (runTopCommand cli))
|