Main.hs
import Language.Mist.Types
import Language.Mist.Runner
import System.Environment (getArgs)
import System.Exit
import System.IO
main :: IO ()
main = do
f <- getSrcFile
r <- runMist stderr f
case r of
Left _ -> exitFailure
Right _ -> exitSuccess
getSrcFile :: IO Text
getSrcFile = do
args <- getArgs
case args of
[f] -> return f
_ -> error "Please run with a single file as input"