From c36849cb6247f957b4e6b093e16d04421c8cea3d Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 25 May 2025 23:35:31 +0200
Subject: ERecompute

---
 src/AST/Pretty.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/AST/Pretty.hs')

diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs
index 6d70ca3..41da656 100644
--- a/src/AST/Pretty.hs
+++ b/src/AST/Pretty.hs
@@ -288,6 +288,10 @@ ppExpr' d val expr = case expr of
         ,e1'
         ,e2']
 
+  ERecompute _ e -> do
+    e' <- ppExpr' 11 val e
+    return $ ppParen (d > 10) $ ppApp (ppString "recompute" <> ppX expr) [e']
+
   EWith _ t e1 e2 -> do
     e1' <- ppExpr' 11 val e1
     name <- genNameIfUsedIn' "ac" (STAccum t) IZ e2
-- 
cgit v1.2.3-70-g09d2