From dbc0cbaa7320387bdbac7b01b2782f60c4d33fd4 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 13 Nov 2007 15:32:57 +0000 Subject: [PATCH] FIX #1653 (partially): add -X flags to completion for :set --- compiler/main/DynFlags.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 = [ -- 1.7.10.4