print ` before enum types

2023-02-26 11:23:30 +01:00 · 2023-02-26 11:23:30 +01:00 · e896b24f58
parent eaf679edf7
commit e896b24f58
1 changed files with 2 additions and 1 deletions
--- a/lib/Quox/Syntax/Term/Pretty.idr
+++ b/lib/Quox/Syntax/Term/Pretty.idr
@ -110,7 +110,8 @@ mutual
      let GotPairs {init, last, _} = getPairs t in
      prettyTuple $ s :: init ++ [last]
    prettyM (Enum tags) =
-      pure $ braces . aseparate comma $ map prettyTag $ Prelude.toList tags
+      pure $ delims "`{" "}" . aseparate comma $ map prettyTag $
+        Prelude.toList tags
    prettyM (Tag t) =
      pure $ prettyTag t
    prettyM (Eq (S _ (N ty)) l r) =