From af00345e0083b7087bf57788a68fb7f694226589 Mon Sep 17 00:00:00 2001
From: Andrea Bellandi <A2Bellaz89@vodafone.it>
Date: Sun, 9 Aug 2015 22:45:24 +0200
Subject: [PATCH] push version

---
 src/Main.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 8597033..e261822 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE ExistentialQuantification #-}
 {-# OPTIONS -Wall #-}
@@ -49,7 +50,7 @@ type Id = Int
 type Seed = Int
 
 strategies :: Game -> StdGen ->  Maybe [Command] -> GameComputation
-strategies g sgen cmd = [MkStrategyWrapper (initst g sgen cmd :: NullStrategy1)]
+strategies g sgen cmd = [MkStrategyWrapper (initst g sgen cmd :: Strategy0)]
 
 -- = [MkStrategyWrapper (initst g sgen cmd :: NullStrategy1),
 --    MkStrategyWrapper (initst g sgen cmd :: NullStrategy2)]
@@ -106,8 +107,8 @@ readFiles (x:xs) = do f  <- BS.readFile x
 
 iterategc :: [GameComputation] -> Maybe (Int,Int64) -> Maybe Int -> IO [(([Command], Int), Int)] 
 iterategc gcs tlimit mlimit = do rtl <- timeLimit tlimit   
-                                 rml <- memLimit mlimit 
-                                 (gcresult rtl rml)
+                                    rml <- memLimit mlimit 
+                                    (gcresult rtl rml)
   where
     gcresult True _ = return best
     gcresult _ True = return best