creating a challenge continued, fixed a typo

geval.cabal

@@ -16,6 +16,7 @@ cabal-version:       >=1.10
 library
   hs-source-dirs:      src
   exposed-modules:     GEval.Core
+                       GEval.CreateChallenge
                      , GEval.OptionsParser
   build-depends:       base >= 4.7 && < 5
                      , cond

src/GEval/CreateChallenge.hs

@@ -0,0 +1,10 @@
+{-# LANGUAGE QuasiQuotes #-}
+
+module GEval.CreateChallenge
+       (createChallenge)
+       where
+
+import GEval.Core
+
+createChallenge :: FilePath -> GEvalSpecification -> IO ()
+createChallenge expectedDirectory spec = putStrLn "creating challange..."

src/GEval/OptionsParser.hs

@@ -13,6 +13,7 @@ import System.IO
 import Data.String.Here
 
 import GEval.Core
+import GEval.CreateChallenge
 
 fullOptionsParser = info (helper <*> optionsParser)
        (fullDesc
@@ -108,16 +109,16 @@ runGEval''' False spec = do
 initChallange :: GEvalSpecification -> IO ()
 initChallange spec = case gesExpectedDirectory spec of
   Nothing -> showInitInstructions
-  Just expectedDirectory -> initChallange' expectedDirectory spec
-
-initChallange' :: FilePath -> GEvalSpecification -> IO ()
-initChallange' expectedDirectory spec = putStrLn "init running..."
+  Just expectedDirectory -> createChallenge expectedDirectory spec
 
 showInitInstructions = do
   putStrLn [here|
 Run:
     geval --init --expected-directory CHALLANGE
 to create a directory CHALLANGE representing a Gonito challange.
+
+You can specify a metric with `--metric METRIC-NAME` option.
+
 (Note that `--out-directory` option is not taken into account with `--init` option.)
 |]
   exitFailure