From 3800d06d5ee46e7f8a884c340765ab27ac5779ed Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?David=20P=C3=A4tzel?=
 <david.paetzel@informatik.uni-augsburg.de>
Date: Sat, 2 May 2020 17:47:43 +0200
Subject: [PATCH] Fix selection method not being selected in Main

---
 src/Main.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index b15b70d..5d11b2a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -33,6 +33,7 @@ options =
               <> help "Population size"
           )
 
+optionsWithHelp :: ParserInfo Options
 optionsWithHelp =
   info (helper <*> options)
     ( fullDesc
@@ -44,7 +45,9 @@ main :: IO ()
 main = execParser optionsWithHelp >>= \opts -> do
   hSetBuffering stdout NoBuffering
   pop <- population (populationSize opts) (I prios [])
-  pop' <- runEffect $ for (run 2 1 (5 / 100) pop (steps $ iterations opts)) log
+  pop' <-
+    runEffect
+      $ for (run (tournament 2) 2 1 (5 / 100) pop (steps $ iterations opts)) log
   (res, _) <- bests 5 pop'
   sequence_ $ format <$> res
   where