diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-11-10 12:39:08 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-11-10 12:39:08 +0100 |
| commit | 013e01e28aba090c065ed584671a65aa339ea51b (patch) | |
| tree | 1595a8363fc181a13d41224e206d051d4e6a906b /src/AST/Pretty.hs | |
| parent | 9c3f3c4a5f1258c99aefc95944af79dd6da2586c (diff) | |
Test GMM; it fails
Diffstat (limited to 'src/AST/Pretty.hs')
| -rw-r--r-- | src/AST/Pretty.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs index 51d89dc..ec8574f 100644 --- a/src/AST/Pretty.hs +++ b/src/AST/Pretty.hs @@ -197,9 +197,9 @@ ppExpr' d val = \case e1' <- ppExpr' 11 val e1 e2' <- ppExpr' 11 val e2 return $ showParen (d > 10) $ showString "custom " - . showString ("(" ++ en1 ++ " " ++ en2 ++ ". ") . a' . showString ") " - . showString ("(" ++ pn1 ++ " " ++ pn2 ++ ". ") . b' . showString ") " - . showString ("(" ++ dn1 ++ " " ++ dn2 ++ ". ") . c' . showString ") " + . showString ("(\\" ++ en1 ++ " " ++ en2 ++ " -> ") . a' . showString ") " + . showString ("(\\" ++ pn1 ++ " " ++ pn2 ++ " -> ") . b' . showString ") " + . showString ("(\\" ++ dn1 ++ " " ++ dn2 ++ " -> ") . c' . showString ") " . e1' . showString " " . e2' |