From 71038ce5d6e4488190f6ed4cebf75ddd952fd3f3 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Thu, 7 Jun 2012 15:56:55 +0900 Subject: [PATCH] flag hack for GHC 7.4. --- Gap.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Gap.hs b/Gap.hs index d286abe..16a1abe 100644 --- a/Gap.hs +++ b/Gap.hs @@ -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]