X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FDynFlags.hs;h=9f1f532cc26a617713f16146f4a1cffdfd3a1de0;hb=47f59de5d2f5e7573dbf4a335d52da9fa1c3e23d;hp=f02e6767745ae3af79e7ba866814eeff97d83236;hpb=28314aa42433b174156bb870d08af745662b99bb;p=ghc-hetmet.git diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index f02e676..9f1f532 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1042,8 +1042,7 @@ glasgowExtsFlags = [ Opt_GlasgowExts, Opt_FFI, Opt_ImplicitParams, - Opt_ScopedTypeVariables, - Opt_BangPatterns ] + Opt_ScopedTypeVariables ] isFFlag f = f `elem` (map fst fFlags) getFFlag f = fromJust (lookup f fFlags)