diff options
| -rw-r--r-- | test/Test.hs | 4 |
1 files 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 -> |