X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=cda06e5f4c9f444cc929b4882f84a8c9f87d0be0;hp=b9d693fbbfe5504e1ae3bff0d22197356fc6cb56;hb=7d52c74cab50d3c9a5e76be5b97d63b60069bc2e;hpb=202d7fe461ff486c503c8b62dbcbfcb59c52c33f

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index b9d693f..cda06e5 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -193,6 +193,7 @@ data DynFlag
    | Opt_ParallelListComp
    | Opt_GeneralizedNewtypeDeriving
    | Opt_RecursiveDo
+   | Opt_PatternGuards
 
    -- optimisation opts
    | Opt_Strictness
@@ -1102,6 +1103,7 @@ fFlags = [
 -- These -X<blah> flags can all be reversed with -Xno-<blah>
 xFlags :: [(String, DynFlag)]
 xFlags = [
+  ( "PatternGuards",                    Opt_PatternGuards ),
   ( "MagicHash",                        Opt_MagicHash ),
   ( "KindSignatures",                   Opt_KindSignatures ),
   ( "EmptyDataDecls",                   Opt_EmptyDataDecls ),
@@ -1160,6 +1162,7 @@ glasgowExtsFlags = [ Opt_GlasgowExts
            , Opt_MultiParamTypeClasses
            , Opt_FunctionalDependencies
 		   , Opt_MagicHash
+           , Opt_PatternGuards
            , Opt_RecursiveDo
            , Opt_ParallelListComp
            , Opt_EmptyDataDecls