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/Helper.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Helper.hs')

diff --git a/src/Helper.hs b/src/Helper.hs
index 50d8b95..fbb7dd8 100644
--- a/src/Helper.hs
+++ b/src/Helper.hs
@@ -175,6 +175,7 @@ data Args = Args
   { _argMode           :: ArgMode
   , _argNoTests        :: Bool
   , _argOptimizeTarget :: String
+  , _argReducer        :: String
   , _argPath           :: Maybe String
   }
 
@@ -185,6 +186,7 @@ data EvalConf = EvalConf
   , _path           :: String
   , _evalPaths      :: [String]
   , _optimizeTarget :: String
+  , _reducer        :: String
   }
 
 newtype ExpFlags = ExpFlags
@@ -215,6 +217,7 @@ argsToConf args = EvalConf { _isRepl         = isNothing $ _argPath args
                            , _nicePath       = path
                            , _evalPaths      = []
                            , _optimizeTarget = _argOptimizeTarget args
+                           , _reducer        = _argReducer args
                            }
   where path = fromMaybe "" (_argPath args)
 
-- 
cgit v1.2.3