Merge pull request #36 from eagletmt/build-fix-for-ghc-7.2

build fix for GHC 7.2

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-"]
    ]