on master help sign in
Show correct numbers when type annotation is too short
70cedd3Evan Czaplicki
compiler/src/Reporting/Error/Canonicalize.hs+1−1
@@ -147,7 +147,7 @@ toReport source err =
147 case err of
147 case err of
148 AnnotationTooShort region name index leftovers ->
148 AnnotationTooShort region name index leftovers ->
149 let
149 let
150− numTypeArgs = Index.toHuman index
150+ numTypeArgs = Index.toMachine index
151 numDefArgs = numTypeArgs + leftovers
151 numDefArgs = numTypeArgs + leftovers
152 in
152 in
153 Report.Report "BAD TYPE ANNOTATION" region [] $
153 Report.Report "BAD TYPE ANNOTATION" region [] $