Hans/haga
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix result extraction

Browse Source
This commit is contained in:
David Pätzel 2019-10-18 13:36:59 +02:00
parent 6c41743dbd
commit 303120f54a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Main.hs
View File

@ -15,7 +15,7 @@ main = do
hSetBuffering stdout NoBuffering hSetBuffering stdout NoBuffering
pop <- mkPop pop <- mkPop
pop' <- runEffect $ for (run 2 1 pop (steps 100)) log pop' <- runEffect $ for (run 2 1 pop (steps 100)) log
res <- bests 5 pop res <- bests 5 pop'
sequence_ $ format <$> res sequence_ $ format <$> res
where where
format :: (Individual i, MonadIO m, Pretty i) => i -> m () format :: (Individual i, MonadIO m, Pretty i) => i -> m ()