Revision b39be83a9375eb9a70fb12c9e7040413eb4a2a8d authored by mkolosick on 13 November 2019, 19:53:32 UTC, committed by mkolosick on 13 November 2019, 19:53:32 UTC
1 parent 4769704
Raw File
Main.hs
import Language.Mist.Runner
import Language.Mist.Config
import System.Console.CmdArgs (cmdArgs)
import System.Exit
import System.IO

main :: IO ()
main = do
  config <- cmdArgs defConfig
  r <- runMist stderr config
  case r of
    Left _  -> exitFailure
    Right _ -> exitSuccess
back to top