consistent indexing
This commit is contained in:
parent
7f46537cbc
commit
507eb79788
1 changed files with 1 additions and 1 deletions
|
@ -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"),
|
||||||
|
|
Loading…
Reference in a new issue