From 048d222a7edf378e1a4eb26ccf0a7a7ebe9547f2 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 20 Nov 2017 14:07:55 +0100
Subject: Hotfix for prop_no_pawns_on_1_and_8

---
 test/Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/Test.hs b/test/Test.hs
index bfe9f55..f8a8729 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -90,7 +90,7 @@ prop_only_2_kings = atAnyState (\b ->
   length (pieceCoords (Just White) (Just King) b) == 1)
 
 prop_no_pawns_on_1_and_8 :: PGN -> Bool
-prop_no_pawns_on_1_and_8 = atAnyState $ all notOnAorH . pieceCoords Nothing (Just Pawn)
+prop_no_pawns_on_1_and_8 = atAnyState $ all notOn1or8 . pieceCoords Nothing (Just Pawn)
   where
     notOn1or8 :: ((Int,Int),a) -> Bool
     notOn1or8 ((_,r),_) = r /= 0 && r /= 7
-- 
cgit v1.2.3