From 70ac5093711eb08bd45bcf7b2e27418703f04306 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 20 Nov 2017 13:56:27 +0100
Subject: nomenclature

---
 test/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/Test.hs b/test/Test.hs
index d758d2b..3b15d25 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -97,8 +97,8 @@ prop_only_2_kings = atAnyState (\b ->
 prop_no_pawns_on_1_and_8 :: PGN -> Bool
 prop_no_pawns_on_1_and_8 = atAnyState $ all notOnAorH . pieceCoords Nothing (Just Pawn)
   where
-    notOnAorH :: ((Int,Int),a) -> Bool
-    notOnAorH ((_,r),_) = r /= 0 && r /= 7
+    notOn1or8 :: ((Int,Int),a) -> Bool
+    notOn1or8 ((_,r),_) = r /= 0 && r /= 7
 
 prop_number_of_pieces :: PGN -> Bool
 prop_number_of_pieces = atAnyTwoStates (\b1 b2 ->
-- 
cgit v1.2.3