From 1112cd5e5e2be22d02722d88a7a65f3f184aeb43 Mon Sep 17 00:00:00 2001 From: Max Goldstein Date: Wed, 9 Sep 2015 11:51:36 -0400 Subject: [PATCH] Fix pluralization --- src/Report.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/Report.hs b/src/Report.hs index c878049..29b31fb 100644 --- a/src/Report.hs +++ b/src/Report.hs @@ -210,7 +210,8 @@ clearProgressBar = closeMessage :: Int -> Int -> String closeMessage failures total = - case failures of - 0 -> "Success! Compiled " ++ show total ++ " modules." - 1 -> "Detected errors in 1 module." - n -> "Detected errors in " ++ show n ++ " modules." + case (failures, total) of + (0, 1) -> "Success! Compiled 1 module." + (0, _) -> "Success! Compiled " ++ show total ++ " modules." + (1, _) -> "Detected errors in 1 module." + (n, _) -> "Detected errors in " ++ show n ++ " modules."