fixing regression.

This commit is contained in:
Kazu Yamamoto 2014-04-28 14:36:46 +09:00
parent 662842a085
commit ae75872638

View File

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