filipg/geval
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

start working on the init procedure

Browse Source
This commit is contained in:
Filip Gralinski 2015-08-23 08:27:05 +02:00 committed by Filip Gralinski
parent c8fce1110e
commit 210e7b9cc8
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/GEval/OptionsParser.hs
View File

@ -91,6 +91,15 @@ attemptToReadOptsFromConfigFile args opts = do
runGEval'' :: GEvalOptions -> IO (Maybe MetricValue)
runGEval'' opts = do
val <- geval $ geoSpec opts
runGEval'' opts = runGEval''' (geoInit opts) (geoSpec opts)
runGEval''' :: Bool -> GEvalSpecification -> IO (Maybe MetricValue)
runGEval''' True spec = do
initChallange spec
return Nothing
runGEval''' False spec = do
val <- geval spec
return $ Just val
initChallange :: GEvalSpecification -> IO ()
initChallange spec = print "will init a challange"