From c36849cb6247f957b4e6b093e16d04421c8cea3d Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 25 May 2025 23:35:31 +0200 Subject: ERecompute --- src/AST/UnMonoid.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/AST/UnMonoid.hs') diff --git a/src/AST/UnMonoid.hs b/src/AST/UnMonoid.hs index 3d5f544..ac4d733 100644 --- a/src/AST/UnMonoid.hs +++ b/src/AST/UnMonoid.hs @@ -47,6 +47,7 @@ unMonoid = \case EShape _ e -> EShape ext (unMonoid e) EOp _ op e -> EOp ext op (unMonoid e) ECustom _ t1 t2 t3 a b c e1 e2 -> ECustom ext t1 t2 t3 (unMonoid a) (unMonoid b) (unMonoid c) (unMonoid e1) (unMonoid e2) + ERecompute _ e -> ERecompute ext (unMonoid e) EWith _ t a b -> EWith ext t (unMonoid a) (unMonoid b) EAccum _ t p a b e -> EAccum ext t p (unMonoid a) (unMonoid b) (unMonoid e) EError _ t s -> EError ext t s -- cgit v1.2.3-70-g09d2