diff options
| -rw-r--r-- | test/Test.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Test.hs b/test/Test.hs index 032e125..91849c2 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -118,7 +118,7 @@ prop_dont_touch_my_pieces :: PGN -> Bool prop_dont_touch_my_pieces = atAnyTwoStates (\b1 b2 -> notMoved (turn b2) b1 b2) where notMoved :: Color -> Board -> Board -> Bool - notMoved c = (==) `on` pieceCoords (Just c) Nothing + notMoved c = (\b a -> null (a \\ b)) `on` pieceCoords (Just c) Nothing return [] main = $forAllProperties (quickCheckWithResult (stdArgs {maxSuccess=10000})) |