hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source 
build fix for GHC 7.2
This commit is contained in:
Kazu Yamamoto 2012-02-01 22:18:17 -08:00
commit 3e75be3e18
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Flag.hs
View File

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