Commit d196d84a authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Comments only

parent a46bdb63
...@@ -781,7 +781,9 @@ flattenExtensionFlags ml = foldr f defaultExtensionFlags ...@@ -781,7 +781,9 @@ flattenExtensionFlags ml = foldr f defaultExtensionFlags
defaultExtensionFlags = languageExtensions ml defaultExtensionFlags = languageExtensions ml
languageExtensions :: Maybe Language -> [ExtensionFlag] languageExtensions :: Maybe Language -> [ExtensionFlag]
languageExtensions Nothing languageExtensions Nothing
-- Nothing => the default case
= 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
...@@ -789,11 +791,13 @@ languageExtensions Nothing ...@@ -789,11 +791,13 @@ languageExtensions Nothing
-- But NB it's implied by GADTs etc -- But NB it's implied by GADTs etc
-- SLPJ September 2010 -- SLPJ September 2010
: languageExtensions (Just Haskell2010) : languageExtensions (Just Haskell2010)
languageExtensions (Just Haskell98) languageExtensions (Just Haskell98)
= [Opt_ImplicitPrelude, = [Opt_ImplicitPrelude,
Opt_MonomorphismRestriction, Opt_MonomorphismRestriction,
Opt_NPlusKPatterns, Opt_NPlusKPatterns,
Opt_DatatypeContexts] Opt_DatatypeContexts]
languageExtensions (Just Haskell2010) languageExtensions (Just Haskell2010)
= [Opt_ImplicitPrelude, = [Opt_ImplicitPrelude,
Opt_MonomorphismRestriction, Opt_MonomorphismRestriction,
......
Markdown is supported
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