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