16 lines
306 B
Haskell
16 lines
306 B
Haskell
module Main where
|
|
|
|
import System.Environment (getArgs)
|
|
|
|
import Runner (run)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
(filename:_) <- getArgs
|
|
input <- readFile filename
|
|
result <- run input
|
|
case result of
|
|
(Right vm) -> do
|
|
putStrLn $ "\nDone\n" ++ show vm
|
|
(Left err) -> putStrLn $ "\n\nError:\n" ++ err
|