Update unison-cli/src/Unison/CommandLine/InputPatterns.hs

Co-authored-by: Greg Pfeil <[email protected]>
unisonweb · Jul 9, 2024 · 22d4b26 · 22d4b26
1 parent b14931f
commit 22d4b26
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/unison-cli/src/Unison/CommandLine/InputPatterns.hs b/unison-cli/src/Unison/CommandLine/InputPatterns.hs
@@ -345,9 +345,9 @@ wrongStructuredArgument expected actual =
 wrongArgsLength :: Text -> [a] -> Either (P.Pretty CT.ColorText) b
 wrongArgsLength expected args =
   let foundCount =
-        if null args
-          then "none"
-          else fromMaybe (tShow $ length args) $ Numeral.us_cardinal defaultInflection (length args)
+        case length args of
+          0 -> "none"
+          n -> fromMaybe (tShow n) $ Numeral.us_cardinal defaultInflection n
    in Left . P.text $ "I expected " <> expected <> ", but received " <> foundCount <> "."
 
 patternName :: InputPattern -> P.Pretty P.ColorText