From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 13 Nov 2007 15:32:57 +0000 (+0000)
Subject: FIX #1653 (partially): add -X flags to completion for :set
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dbc0cbaa7320387bdbac7b01b2782f60c4d33fd4

FIX #1653 (partially): add -X flags to completion for :set
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 2603c85..f8322f2 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -936,10 +936,13 @@ allFlags :: [String]
 allFlags = map ('-':) $
            [ name | (name, optkind) <- dynamic_flags, ok optkind ] ++
            map ("fno-"++) flags ++
-           map ("f"++) flags
+           map ("f"++) flags ++
+           map ("X"++) xs ++
+           map ("XNo"++) xs
     where ok (PrefixPred _ _) = False
           ok _ = True
           flags = map fst fFlags
+          xs = map fst xFlags
 
 dynamic_flags :: [(String, OptKind DynP)]
 dynamic_flags = [