From 8473f03e20f1dc4a8b7095c3e1fca621dbca4668 Mon Sep 17 00:00:00 2001 From: Andrea Bellandi Date: Sun, 9 Aug 2015 02:25:35 +0200 Subject: [PATCH] ReadString push --- src/ReadString.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/ReadString.hs b/src/ReadString.hs index 475434e..fb78e85 100644 --- a/src/ReadString.hs +++ b/src/ReadString.hs @@ -25,7 +25,8 @@ main = do args <- getArgs seedn <- return $ optSeedNumber opt (id, seedgame) <- return $ readInput file (seed,game) <- return $ unzip seedgame - outputs <- return $ passes $ propagateCommand (game !! seedn) phrase + commintermediate <- return $ propagateCommand (game !! seedn) phrase + outputs <- return $ passes commintermediate BS.putStrLn $ encode outputs propagateCommand :: DT.Game -> String -> [(DT.Game, VM.Notes)]