ppretty tyvars

2024-03-26 12:12:31 -06:00
parent d217b5b830
commit ed353f02ab
4 changed files with 57 additions and 25 deletions
--- a/src/Rlp/AltSyntax.hs
+++ b/src/Rlp/AltSyntax.hs
@@ -181,7 +181,7 @@ instance (Out b) => Out (Type b) where
        outPrec appPrec f <+> outPrec appPrec1 x
    outPrec p FunT = maybeParens (p>0) "->"
    outPrec p (ForallT x m) = maybeParens (p>0) $
-        hsep [ "∀", ttext x, outPrec 0 m ]
+        hsep [ "∀", ttext x <> ".", outPrec 0 m ]

 instance (Out b) => Out (Pat b) where
    outPrec p (VarP b) = outPrec p b