Commit 7c086ecd authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove defaultExtensionFlags

The default should do into languageExtensions instead
parent 252ea4fa
...@@ -732,7 +732,7 @@ defaultDynFlags = ...@@ -732,7 +732,7 @@ defaultDynFlags =
haddockOptions = Nothing, haddockOptions = Nothing,
flags = defaultFlags, flags = defaultFlags,
language = Nothing, language = Nothing,
extensionFlags = Left defaultExtensionFlags, extensionFlags = Left [],
log_action = \severity srcSpan style msg -> log_action = \severity srcSpan style msg ->
case severity of case severity of
...@@ -795,6 +795,8 @@ languageExtensions Nothing ...@@ -795,6 +795,8 @@ languageExtensions Nothing
= Opt_MonoPatBinds -- Experimentally, I'm making this non-standard = Opt_MonoPatBinds -- Experimentally, I'm making this non-standard
-- behaviour the default, to see if anyone notices -- behaviour the default, to see if anyone notices
-- SLPJ July 06 -- SLPJ July 06
-- In due course I'd like Opt_MonoLocalBinds to be on by default
-- SLPJ September 2010
: languageExtensions (Just Haskell2010) : languageExtensions (Just Haskell2010)
languageExtensions (Just Haskell98) languageExtensions (Just Haskell98)
= [Opt_ImplicitPrelude, = [Opt_ImplicitPrelude,
...@@ -1659,10 +1661,6 @@ defaultFlags ...@@ -1659,10 +1661,6 @@ defaultFlags
++ standardWarnings ++ standardWarnings
defaultExtensionFlags :: [OnOff ExtensionFlag]
defaultExtensionFlags
= [] -- In due course I'd like Opt_MonoLocalBinds to be on by default
impliedFlags :: [(ExtensionFlag, ExtensionFlag)] impliedFlags :: [(ExtensionFlag, ExtensionFlag)]
impliedFlags impliedFlags
= [ (Opt_RankNTypes, Opt_ExplicitForAll) = [ (Opt_RankNTypes, Opt_ExplicitForAll)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment