mirror of
https://github.com/anoma/juvix.git
synced 2024-09-11 08:15:41 +03:00
parent
138e8f4aca
commit
698560076f
@ -25,9 +25,14 @@ applyCompileCommonOptions :: CompileCommonOptions' b -> EntryPoint -> EntryPoint
|
||||
applyCompileCommonOptions opts e =
|
||||
e
|
||||
{ _entryPointDebug = opts ^. compileDebug,
|
||||
_entryPointOptimizationLevel = fromMaybe defaultOptimizationLevel (opts ^. compileOptimizationLevel),
|
||||
_entryPointOptimizationLevel = fromMaybe defaultOptimization (opts ^. compileOptimizationLevel),
|
||||
_entryPointInliningDepth = opts ^. compileInliningDepth
|
||||
}
|
||||
where
|
||||
defaultOptimization :: Int
|
||||
defaultOptimization
|
||||
| opts ^. compileDebug = 0
|
||||
| otherwise = defaultOptimizationLevel
|
||||
|
||||
fromCompileCommonOptionsMain :: (Members '[App] r) => CompileCommonOptionsMain -> Sem r CompileCommonOptions
|
||||
fromCompileCommonOptionsMain = traverseOf compileInputFile getMainAppFile
|
||||
|
Loading…
Reference in New Issue
Block a user