Fix result extraction

This commit is contained in:
David Pätzel 2019-10-18 13:36:59 +02:00
parent 6c41743dbd
commit 303120f54a

View File

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