MonadLab-0.0: FrontEnd.hs

module Main where

import System
import System.Cmd
import Paths_MonadLab

main :: IO ()
main = do
          shellWrapper <- getDataFileName "mlab.sh"
          compileStub  <- getDataFileName "MLabCompileStub.hs"
          args         <- getArgs
          let sourceFile = if args /= [] then head args else error "Syntax: mlab [filename.mlab]"
          rawSystem "bash" [shellWrapper,compileStub,sourceFile]
          return ()