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 dfa3102..e112484 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -26,7 +26,7 @@ atAnyState = atAnyTwoStates . const atAnyTwoStates :: (Board -> Board -> Bool) -> PGN -> Property atAnyTwoStates ok pgn = let moveList = seqList [moveSAN m | m <- moves pgn] $ Right defaultBoard in - classify True (show (length moveList - 1) ++ " legal move(s)") $ + classify True (let l = length moveList - 1 in show l ++ " legal move" ++ if (l == 1) then "" else "s") $ and [ok b1 b2 | Right b1 <- moveList | Right b2 <- tail moveList] where seqList :: [r -> Either e r] -> Either e r -> [Either e r] |