lib/Hcompta/Lib/Applicative.hs

   1 {-# LANGUAGE CPP #-}
   2 {-# LANGUAGE StandaloneDeriving #-}
   3 {-# OPTIONS_GHC -fno-warn-orphans #-}
   4
   5 module Hcompta.Lib.Applicative where
   6
   7 #if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 708
   8 import           Control.Applicative (Const(..))
   9 import           Data.Monoid (Monoid(..))
  10 import           GHC.Show (Show)
  11
  12 deriving instance Show x => Show (Const x y)
  13
  14 #if __GLASGOW_HASKELL__ < 707
  15 instance Monoid x => Monoid (Const x y) where
  16         mempty = Const mempty
  17         mappend (Const x0) (Const x1) = Const (mappend x0 x1)
  18 #endif
  19
  20 #endif