From e82b1eed9f9d749afb1e47f0bc8f35e806fda9f6 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 5 Nov 2025 22:29:41 +0100
Subject: Some extra Map optimisations

---
 src/Example.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/Example.hs')

diff --git a/src/Example.hs b/src/Example.hs
index 2c51291..e996002 100644
--- a/src/Example.hs
+++ b/src/Example.hs
@@ -34,9 +34,8 @@ pipeline config term
   | Dict <- styKnown (d2 (typeOf term)) =
   simplifyFix $ pruneExpr knownEnv $
   simplifyFix $ unMonoid $
-  chad' config knownEnv $
-  simplifyFix $
-  term
+  simplifyFix $ chad' config knownEnv $
+  simplifyFix $ term
 
 -- :seti -XOverloadedLabels -XPartialTypeSignatures -Wno-partial-type-signatures
 pipeline' :: KnownEnv env => CHADConfig -> Ex env t -> IO ()
-- 
cgit v1.2.3-70-g09d2