consistent indexing

This commit is contained in:
rhiannon morris 2023-03-13 19:31:52 +01:00
parent 7f46537cbc
commit 507eb79788

View file

@ -42,7 +42,7 @@ PrettyHL q => ToInfo (Error q) where
("set", show $ SortedSet.toList ts)] ("set", show $ SortedSet.toList ts)]
toInfo (BadCaseQtys qouts) = toInfo (BadCaseQtys qouts) =
("type", "BadCaseQtys") :: ("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) = toInfo (ClashT mode ty s t) =
[("type", "ClashT"), [("type", "ClashT"),