From 1faf438c17cf547093f627763548885387c930b3 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 22 Nov 2017 17:05:32 +0100
Subject: Pluralise triviality reports

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

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]
-- 
cgit v1.2.3