From 210e7b9cc8188e76d7c11f027d1a04881cc692d5 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sun, 23 Aug 2015 08:27:05 +0200
Subject: [PATCH] start working on the init procedure

---
 src/GEval/OptionsParser.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/GEval/OptionsParser.hs b/src/GEval/OptionsParser.hs
index e7befd9..fcaa531 100644
--- a/src/GEval/OptionsParser.hs
+++ b/src/GEval/OptionsParser.hs
@@ -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"