From 497d02d83575c5ef0e9e1740c2b60d2596732cab Mon Sep 17 00:00:00 2001
From: Richard Cook <rcook@rcook.org>
Date: Fri, 25 Dec 2015 13:57:46 -0800
Subject: [PATCH] Fix GHC 7.10.2 compatibility by using GHC.OldList.foldr

---
 projects/NetworkServer/haskell/src/Data/TicTacToe.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/projects/NetworkServer/haskell/src/Data/TicTacToe.hs b/projects/NetworkServer/haskell/src/Data/TicTacToe.hs
index 1ab3474..8f79be7 100644
--- a/projects/NetworkServer/haskell/src/Data/TicTacToe.hs
+++ b/projects/NetworkServer/haskell/src/Data/TicTacToe.hs
@@ -1,6 +1,7 @@
 module Data.TicTacToe where
 
 import           Prelude hiding (any, all, mapM, concat)
+import qualified GHC.OldList as L
 import           Test.QuickCheck
 import           Data.Map (Map, singleton)
 import qualified Data.Map as M
@@ -176,7 +177,7 @@ instance Arbitrary Board where
   arbitrary = do
     p <- arbitrary
     ps <- arbitrary
-    return $ foldr propell (start p) ps
+    return $ L.foldr propell (start p) ps
 
 propell :: Position -> Board -> Board
 propell p b =