From 71ebb82eb248a0cbb0dc87c166839b06d32b1dcd Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 17 Nov 2010 12:27:23 +0900
Subject: [PATCH] =?UTF-8?q?Supporting=20GHC7=20(Krzysztof=20Skrz=C4=99tnic?=
 =?UTF-8?q?ki).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Lang.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Lang.hs b/Lang.hs
index 8573f4b..695b9bf 100644
--- a/Lang.hs
+++ b/Lang.hs
@@ -1,7 +1,13 @@
+{-# LANGUAGE CPP #-}
+
 module Lang where
 
 import DynFlags
 import Types
 
 listLanguages :: Options -> IO String
+#if __GLASGOW_HASKELL__ >= 700
+listLanguages opt = return $ convert opt supportedLanguagesAndExtensions
+#else
 listLanguages opt = return $ convert opt supportedLanguages
+#endif