flag hack for GHC 7.4.

This commit is contained in:
Kazu Yamamoto 2012-06-07 15:56:55 +09:00
parent cb2eb3f1b3
commit 71038ce5d6
1 changed files with 5 additions and 1 deletions

6
Gap.hs
View File

@ -95,7 +95,11 @@ toStringBuffer = liftIO . stringToStringBuffer . unlines
----------------------------------------------------------------
fOptions :: [String]
#if __GLASGOW_HASKELL__ == 702
#if __GLASGOW_HASKELL__ >= 704
fOptions = [option | (option,_,_) <- fFlags]
++ [option | (option,_,_) <- fWarningFlags]
++ [option | (option,_,_) <- fLangFlags]
#elif __GLASGOW_HASKELL__ == 702
fOptions = [option | (option,_,_,_) <- fFlags]
#else
fOptions = [option | (option,_,_) <- fFlags]