From 948a23e6eeda026e9ccf1833223028cc17603c37 Mon Sep 17 00:00:00 2001
From: eagletmt <eagletmt@gmail.com>
Date: Fri, 27 Jan 2012 21:22:36 +0900
Subject: [PATCH] build fix for GHC 7.2

---
 Flag.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Flag.hs b/Flag.hs
index 60105f9..ad823ac 100644
--- a/Flag.hs
+++ b/Flag.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 module Flag where
 
 import DynFlags
@@ -6,5 +8,10 @@ import Types
 listFlags :: Options -> IO String
 listFlags opt = return $ convert opt $
    [ "-f" ++ prefix ++ option
-   | (option,_,_) <- fFlags, prefix <- ["","no-"]
+#if __GLASGOW_HASKELL__ == 702
+   | (option,_,_,_) <- fFlags
+#else
+   | (option,_,_) <- fFlags
+#endif
+   , prefix <- ["","no-"]
    ]