consistent indexing

This commit is contained in:
rhiannon morris 2023-03-13 19:31:52 +01:00
parent 7f46537cbc
commit 507eb79788
1 changed files with 1 additions and 1 deletions

View File

@ -42,7 +42,7 @@ PrettyHL q => ToInfo (Error q) where
("set", show $ SortedSet.toList ts)]
toInfo (BadCaseQtys qouts) =
("type", "BadCaseQtys") ::
[(show i, prettyStr True q) | (i, q) <- zip [0 .. length qouts] qouts]
[(show i, prettyStr True q) | (i, q) <- zip [1 .. length qouts] qouts]
toInfo (ClashT mode ty s t) =
[("type", "ClashT"),