From 2f7d9427f26525bd259f7d155c5d0b6167799373 Mon Sep 17 00:00:00 2001
From: Abhinav Sarkar <abhinav.sarkar@gmail.com>
Date: Mon, 6 Aug 2012 16:47:31 +0530
Subject: [PATCH] hlinted

---
 TicTacToe.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/TicTacToe.hs b/TicTacToe.hs
index 7faf154..e9ce82f 100644
--- a/TicTacToe.hs
+++ b/TicTacToe.hs
@@ -193,7 +193,7 @@ learningPlay (LearningPlayer move mem gen) board = let
       in case filter (isWin (otherMove move) . snd) otherNext of
         ((pos,_):_) -> (LearningPlayer move mem gen, makeMove pos move board)
         [] -> let
-          scores = map (\b -> (b, boardScore b mem)) $ next
+          scores = map (\b -> (b, boardScore b mem)) next
           (board', (w, _, d)) = maximumBy (comparing (calcScore . snd)) scores
           in if w /= 0
              then (LearningPlayer move mem gen, board')