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

build fix for GHC 7.2
This commit is contained in:
Kazu Yamamoto 2012-02-01 22:18:17 -08:00
commit 3e75be3e18

View File

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