From 3a738bd9c519fe890c03948eba1e1033b93a811a Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 7 Mar 2025 17:24:24 +0100 Subject: pretty: Print x value for (!) --- src/AST/Pretty.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs index 8c0a406..f91aff2 100644 --- a/src/AST/Pretty.hs +++ b/src/AST/Pretty.hs @@ -196,7 +196,7 @@ ppExpr' d val expr = case expr of a' <- ppExpr' 9 val a b' <- ppExpr' 10 val b return $ ppParen (d > 8) $ - a' <+> ppString "!" <+> b' + a' <+> ppString "!" <> ppX expr <+> b' EShape _ e -> do e' <- ppExpr' 11 val e -- cgit v1.2.3-70-g09d2