diff options
Diffstat (limited to 'src/Helper.hs')
| -rw-r--r-- | src/Helper.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Helper.hs b/src/Helper.hs index b4b48e1..edd9b09 100644 --- a/src/Helper.hs +++ b/src/Helper.hs @@ -187,6 +187,7 @@ data Args = Args { _argMode :: ArgMode , _argNoTests :: Bool , _argVerbose :: Bool + , _argOptimize :: Bool , _argToTarget :: String , _argReducer :: String , _argPath :: Maybe String @@ -196,11 +197,13 @@ data EvalConf = EvalConf { _isRepl :: Bool , _isVerbose :: Bool , _evalTests :: Bool + , _optimize :: Bool , _nicePath :: String , _path :: String , _evalPaths :: [String] , _toTarget :: String , _reducer :: String + , _hasArg :: Bool } newtype ExpFlags = ExpFlags @@ -228,11 +231,13 @@ argsToConf :: Args -> EvalConf argsToConf args = EvalConf { _isRepl = isNothing $ _argPath args , _isVerbose = _argVerbose args , _evalTests = not $ _argNoTests args + , _optimize = _argOptimize args , _path = path , _nicePath = path , _evalPaths = [] , _toTarget = _argToTarget args , _reducer = _argReducer args + , _hasArg = False } where path = fromMaybe "" (_argPath args) |