diff options
Diffstat (limited to 'compiler/main/DynFlags.hs')
| -rw-r--r-- | compiler/main/DynFlags.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 26f89c3a15..22615c5f14 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -52,7 +52,6 @@ module DynFlags ( dynFlagDependencies, tablesNextToCode, mkTablesNextToCode, SigOf, getSigOf, - checkOptLevel, Way(..), mkBuildTag, wayRTSOnly, addWay', updateWays, wayGeneralFlags, wayUnsetGeneralFlags, @@ -3838,14 +3837,13 @@ setObjTarget l = updM set | otherwise = return dflags setOptLevel :: Int -> DynFlags -> DynP DynFlags -setOptLevel n dflags = return (updOptLevel n dflags) - -checkOptLevel :: Int -> DynFlags -> Either String DynFlags -checkOptLevel n dflags +setOptLevel n dflags | hscTarget dflags == HscInterpreted && n > 0 - = Left "-O conflicts with --interactive; -O ignored." + = do addWarn "-O conflicts with --interactive; -O ignored." + return dflags | otherwise - = Right dflags + = return (updOptLevel n dflags) + -- -Odph is equivalent to -- |