X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=f12bb7927fdc885ce3cd72f95b81f170a4b56eaf;hb=3c803caaf7b37877530a3085c678026fb24e3426;hp=73cd8eb06833cfc55163f33e67f7fc540e19bda0;hpb=589b4037655acdc7e1e6ba44861e5219c02f1334;p=ghc-hetmet.git

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 73cd8eb..f12bb79 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -47,7 +47,8 @@ module DynFlags (
         allFlags,
 
 	-- misc stuff
-	machdepCCOpts, picCCOpts
+	machdepCCOpts, picCCOpts,
+    supportedLanguages,
   ) where
 
 #include "HsVersions.h"
@@ -1169,6 +1170,8 @@ fFlags = [
   ( "allow-incoherent-instances",       Opt_IncoherentInstances )
   ]
 
+supportedLanguages :: [String]
+supportedLanguages = map fst xFlags
 
 -- These -X<blah> flags can all be reversed with -XNo<blah>
 xFlags :: [(String, DynFlag)]