mirror of
https://github.com/unisonweb/unison.git
synced 2024-11-14 07:51:12 +03:00
produce non-zero exit code when parser/typechecker fails
This commit is contained in:
parent
7b634bac54
commit
ff2fc7a1c1
@ -3,6 +3,7 @@
|
||||
module Main where
|
||||
|
||||
import System.Environment (getArgs)
|
||||
import System.Exit (die)
|
||||
import qualified Unison.FileParsers as FileParsers
|
||||
import qualified Unison.Parser as Parser
|
||||
import qualified Unison.Parsers as Parsers
|
||||
@ -18,6 +19,6 @@ main = do
|
||||
f (_unisonFile', typ, bs) = do
|
||||
putStrLn ("typechecked as " ++ show typ)
|
||||
BS.writeFile outputFile bs
|
||||
either putStrLn f r
|
||||
either die f r
|
||||
|
||||
_ -> putStrLn "usage: bootstrap <in-file.u> <out-file.ub>"
|
||||
|
Loading…
Reference in New Issue
Block a user