X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=3fdfb0b8e5d5c012a1d4ec88539e1c0ce03cf0fa;hp=a675ff316c7674f25ccf08f7eb9565f1fa36ac70;hb=aab1ff042c452bac0414f69499d1c354a6cd73c7;hpb=f48c36d1f3f64570b44fae1737ad34f6ce98bd7d

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index a675ff3..3fdfb0b 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -194,6 +194,7 @@ data DynFlag
    | Opt_MagicHash
    | Opt_EmptyDataDecls
    | Opt_KindSignatures
+   | Opt_PatternSignatures
    | Opt_ParallelListComp
    | Opt_GeneralizedNewtypeDeriving
    | Opt_RecursiveDo
@@ -1120,6 +1121,7 @@ xFlags = [
   ( "PolymorphicComponents",            Opt_PolymorphicComponents ),
   ( "ExistentialQuantification",        Opt_ExistentialQuantification ),
   ( "KindSignatures",                   Opt_KindSignatures ),
+  ( "PatternSignatures",                Opt_PatternSignatures ),
   ( "EmptyDataDecls",                   Opt_EmptyDataDecls ),
   ( "ParallelListComp",                 Opt_ParallelListComp ),
   ( "FI",				Opt_FFI ),  -- support `-ffi'...
@@ -1192,6 +1194,7 @@ glasgowExtsFlags = [ Opt_GlasgowExts
            , Opt_ParallelListComp
            , Opt_EmptyDataDecls
            , Opt_KindSignatures
+           , Opt_PatternSignatures
            , Opt_GeneralizedNewtypeDeriving
 		   , Opt_TypeFamilies ]