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
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
main = do
|
|
|
|
[expectedFilePath, outFilePath] <- getArgs
|
2015-08-21 22:56:32 +02:00
|
|
|
result <- gevalCore MSE expectedFilePath outFilePath
|
2015-08-17 23:32:00 +02:00
|
|
|
print $ result
|