From 4ada2ee5355c2d2a1e3ad8ce9d3b18dbe807e63a Mon Sep 17 00:00:00 2001 From: Edward Kmett <ekmett@gmail.com> Date: Sun, 8 Mar 2015 04:29:28 -0400 Subject: [PATCH] consolidate ghc version CPP handling --- src/Control/Monad/Catch.hs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/src/Control/Monad/Catch.hs b/src/Control/Monad/Catch.hs index ce678d1..951d723 100644 --- a/src/Control/Monad/Catch.hs +++ b/src/Control/Monad/Catch.hs @@ -75,12 +75,6 @@ module Control.Monad.Catch ( , SomeException(..) ) where -#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 706) -import Prelude hiding (foldr) -#else -import Prelude hiding (catch, foldr) -#endif - import Control.Exception (Exception(..), SomeException(..)) import qualified Control.Exception as ControlException import qualified Control.Monad.STM as STM @@ -98,7 +92,12 @@ import Control.Monad.Trans.Except (ExceptT(..), runExceptT) import Control.Monad.Trans.Cont (ContT) import Control.Monad.Trans.Identity import Control.Monad.Reader as Reader -#if __GLASGOW_HASKELL__ < 710 + +#if __GLASGOW_HASKELL__ < 706 +import Prelude hiding (catch, foldr) +import Data.Monoid +#elif __GLASGOW_HASKELL__ < 710 +import Prelude hiding (foldr) import Data.Foldable import Data.Monoid #endif -- GitLab