diff options
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' |