Fix GHC 7.10.2 compatibility by using GHC.OldList.foldr

miladz68 · Dec 25, 2015 · 497d02d · 497d02d
1 parent 5a914df
commit 497d02d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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 =