mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
34 lines
1.0 KiB
Haskell
34 lines
1.0 KiB
Haskell
module Main (main) where
|
|
|
|
import App
|
|
import CommonOptions
|
|
import Data.String.Interpolate (i)
|
|
import GlobalOptions
|
|
import Juvix.Compiler.Pipeline.Root
|
|
import TopCommand
|
|
import TopCommand.Options
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let parserPreferences = prefs showHelpOnEmpty
|
|
invokeDir <- getCurrentDir
|
|
(_runAppIOArgsGlobalOptions, cli) <- customExecParser parserPreferences descr
|
|
mbuildDir <- mapM (prepathToAbsDir invokeDir) (_runAppIOArgsGlobalOptions ^? globalBuildDir . _Just . pathPath)
|
|
mainFile <- topCommandInputPath cli
|
|
mapM_ checkMainFile mainFile
|
|
runFinal
|
|
. resourceToIOFinal
|
|
. embedToFinal @IO
|
|
. runTaggedLockPermissive
|
|
$ do
|
|
_runAppIOArgsRoot <- findRootAndChangeDir (containingDir <$> mainFile) mbuildDir invokeDir
|
|
runAppIO RunAppIOArgs {..} (runTopCommand cli)
|
|
where
|
|
checkMainFile :: SomePath b -> IO ()
|
|
checkMainFile p = unlessM (doesSomePathExist p) err
|
|
where
|
|
err :: IO ()
|
|
err = do
|
|
hPutStrLn stderr [i|The input path #{p} does not exist|]
|
|
exitFailure
|