geval/app/Main.hs

17 lines
344 B
Haskell
Raw Normal View History

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