ReadString push

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)]