Prelude.hs

{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}

-- | The sole purpose of this module is to fix pre/post ghc 7.10 compatibility issues
module Infernu.Prelude 
  ( module Prelude
#if MIN_VERSION_base(4,8,0)
#else
  , module Data.Functor
  , module Data.Foldable
  , module Data.Monoid
  , module Control.Applicative
  , module Data.Traversable
#endif
#if MIN_VERSION_base(4,7,0)
  , module Data.Bool
#else
  , bool
#endif
  )
where

 
#if MIN_VERSION_base(4,8,0)
import Prelude
#else
import Data.Functor ((<$>))
import Data.Foldable         (Foldable (..), foldr)
import Data.Monoid           (Monoid (..))
import Control.Applicative   (Applicative(..))
import Data.Traversable      (Traversable (..))

import Prelude hiding (foldl, foldl1, foldr1, foldr, mapM, sequence)
#endif
    
#if MIN_VERSION_base(4,7,0)
import Data.Bool (bool)
#else

instance Foldable ((,) a) where
    foldMap f (_, y) = f y

    foldr f z (_, y) = f y z

bool :: a -> a -> Bool -> a
bool f _ False = f
bool _ t True  = t

#endif