2015-08-17 23:32:00 +02:00
|
|
|
module Main where
|
|
|
|
|
|
2015-08-20 21:44:09 +02:00
|
|
|
import GEval
|
2015-08-17 23:32:00 +02:00
|
|
|
import System.Environment
|
|
|
|
|
|
2015-08-22 00:00:46 +02:00
|
|
|
import Options.Applicative
|
2015-08-22 19:44:46 +02:00
|
|
|
import OptionsParser
|
2015-08-22 00:00:46 +02:00
|
|
|
|
2015-08-17 23:32:00 +02:00
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
2015-08-22 20:28:10 +02:00
|
|
|
args <- getArgs
|
|
|
|
|
result <- runGEval args
|
|
|
|
|
case result of
|
|
|
|
|
Left parseResult -> handleParseResult parseResult >> return ()
|
|
|
|
|
Right (Just result) -> print $ result
|
|
|
|
|
Right Nothing -> return ()
|
