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

module Hcompta.Lib.Applicative where

#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 708
import           Control.Applicative (Const(..))
import           Data.Monoid (Monoid(..))
import           GHC.Show (Show)

deriving instance Show x => Show (Const x y)

#if __GLASGOW_HASKELL__ < 707
instance Monoid x => Monoid (Const x y) where
	mempty = Const mempty
	mappend (Const x0) (Const x1) = Const (mappend x0 x1)
#endif

#endif