X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=9f1f532cc26a617713f16146f4a1cffdfd3a1de0;hb=56dfaffd65d96d27a74c906c2201fd392e06f154;hp=f02e6767745ae3af79e7ba866814eeff97d83236;hpb=6e0c3f50e131f502577a61b09a339af295de9d23;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)