Added support for auto-completing option flags and pragmas

2012-01-22 20:18:40 -08:00
parent b4c2d3366c
commit a0216361ed
5 changed files with 36 additions and 4 deletions
--- a/Flag.hs
+++ b/Flag.hs
@@ -0,0 +1,10 @@
+module Flag where
+
+import DynFlags
+import Types
+
+listFlags :: Options -> IO String
+listFlags opt = return $ convert opt $
+   [ "-f" ++ prefix ++ option
+   | (option,_,_) <- fFlags, prefix <- ["","no-"]
+   ]