diff options
| author | Marvin Borner | 2024-02-24 18:40:54 +0100 |
|---|---|---|
| committer | Marvin Borner | 2024-02-24 18:40:54 +0100 |
| commit | 02d531a2dff18aed6ec8085c10113ac0a46b05b9 (patch) | |
| tree | db7af5225a9c67ee1ada684de57dab71332d8c3a /src/Helper.hs | |
| parent | 1f78034588a4f545fce3dcd5070b45c60d3f0bdd (diff) | |
Added reducer selection flag
Diffstat (limited to 'src/Helper.hs')
| -rw-r--r-- | src/Helper.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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) |