Include package_flags in allFlags list.
authorDavid Terei <davidterei@gmail.com>
Wed, 9 Nov 2011 02:33:59 +0000 (18:33 -0800)
committerDavid Terei <davidterei@gmail.com>
Wed, 9 Nov 2011 02:33:59 +0000 (18:33 -0800)
This means ghci now correctly picks up the package flags
for tab completion.

compiler/main/DynFlags.hs

index 3812ebe..2ece476 100644 (file)
@@ -1337,7 +1337,7 @@ safeFlagCheck dflags =
 
 allFlags :: [String]
 allFlags = map ('-':) $
-           [ flagName flag | flag <- dynamic_flags, ok (flagOptKind flag) ] ++
+           [ flagName flag | flag <- dynamic_flags ++ package_flags, ok (flagOptKind flag) ] ++
            map ("fno-"++) fflags ++
            map ("f"++) fflags ++
            map ("X"++) supportedExtensions