From 02d531a2dff18aed6ec8085c10113ac0a46b05b9 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sat, 24 Feb 2024 18:40:54 +0100
Subject: Added reducer selection flag

---
 src/Optimizer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Optimizer.hs')

diff --git a/src/Optimizer.hs b/src/Optimizer.hs
index 2744b8f..260c149 100644
--- a/src/Optimizer.hs
+++ b/src/Optimizer.hs
@@ -83,4 +83,4 @@ optimizeToTarget conf e = do
         Right res -> return $ toExpression target res
 
 optimizedReduce :: EvalConf -> Expression -> IO Expression
-optimizedReduce conf e = optimizeToTarget conf e >>= reduce
+optimizedReduce conf e = optimizeToTarget conf e >>= reduce conf
-- 
cgit v1.2.3