X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FMain.hs;h=3b4d5e0a94fb63aee33f294ec73a8fd0ceb76f04;hb=320738062c7a81f062c5adab98a1a1c4fdbd4bc7;hp=a62663d033c68c94311c6a3cec7c788ac86d6637;hpb=1971591f865ac0806802c476f23792ae2c89411a;p=ghc-hetmet.git

diff --git a/ghc/Main.hs b/ghc/Main.hs
index a62663d..3b4d5e0 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -677,7 +677,7 @@ showInfo dflags = do
           flatten (k, FromDynFlags f) = (k, f dflags)
 
 showSupportedExtensions :: IO ()
-showSupportedExtensions = mapM_ putStrLn supportedExtensions
+showSupportedExtensions = mapM_ putStrLn supportedLanguagesAndExtensions
 
 showVersion :: IO ()
 showVersion = putStrLn (cProjectName ++ ", version " ++ cProjectVersion)