@@ -62,7 +62,7 @@ data Hint
6262 | BinopRight Var.Canonical Region.Region
6363 | Binop Var.Canonical
6464 | Function (Maybe Var.Canonical)
65− | UnexpectedArg (Maybe Var.Canonical) Int Region.Region
65+ | UnexpectedArg (Maybe Var.Canonical) Int Int Region.Region
6666 | FunctionArity (Maybe Var.Canonical) Int Int Region.Region
6767 | BadTypeAnnotation String
6868 | Instance String
@@ -268,7 +268,17 @@ mismatchToReport localizer (MismatchInfo hint leftType rightType maybeReason) =
268268 []
269269 )
270270
271− UnexpectedArg maybeName index region ->
271+ UnexpectedArg maybeName 1 1 region ->
272+ report
273+ (Just region)
274+ ("The argument to " ++ funcName maybeName ++ " is causing a mismatch.")
275+ ( cmpHint
276+ (Help.capitalize (funcName maybeName) ++ " is expecting the argument to be:")
277+ "But it is:"
278+ []
279+ )
280+
281+ UnexpectedArg maybeName index _totalArgs region ->
272282 report
273283 (Just region)
274284 ( "The " ++ Help.ordinalize index ++ " argument to " ++ funcName maybeName