mirror of
https://github.com/anoma/juvix.git
synced 2024-12-11 08:25:46 +03:00
8eb4c64f5d
Previously if you call Juvix on a file that doesn't exist you get the error: ``` $ juvix compile /i/don't/exist.juvix juvix: /i/dont: changeWorkingDirectory: does not exist (No such file or directory) ``` After this change you will see: ``` $ juvix compile /i/don't/exist.juvix The input path "/i/dont/exist.juvix" does not exist ```
35 lines
1.0 KiB
Haskell
35 lines
1.0 KiB
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
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
|
|
_runAppIOArgsRoots <- findRootAndChangeDir (containingDir <$> mainFile) mbuildDir invokeDir
|
|
runFinal
|
|
. resourceToIOFinal
|
|
. embedToFinal @IO
|
|
. 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
|