From e3601272a96291281163c3ecc395b9add7b30c05 Mon Sep 17 00:00:00 2001 From: Slash Date: Mon, 10 Aug 2015 09:55:32 +0200 Subject: [PATCH] hotfix --- src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 0042480..f2cffac 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -17,7 +17,7 @@ import Data.Maybe import StrategyManager import Strategy0 -import Datatypes.Game(Game,Command) +import Datatypes.Game(Game,Command,commandsToString) import VM import Opt import JSONDeser(readInput) @@ -76,7 +76,7 @@ main = do initTime <- secTime initialData <- createComputationsFromFiles files rng powerPhrase let (_, _,gameComputations) = unzip3 initialData commandResults <- iterateGame gameComputations (timeStruct maxTime initTime) maxMem - let stringResults = map (\(cmds,score,algoIdx) -> (cmdToString cmds,score,algoIdx)) commandResults + let stringResults = map (\(cmds,score,algoIdx) -> (commandsToString cmds,score,algoIdx)) commandResults let outJSONstructs = zipWith jsonBuilder initialData stringResults BS.putStrLn $ encode outJSONstructs writeLogFile logFile (zipWith logFileBuilder initialData stringResults)