Basement/Compat/Semigroup.hs

7 module Basement.Compat.Semigroup
8     ( Semigroup(..)
13 import           Data.Semigroup
35 class Semigroup a where  constructor
86 instance Semigroup a => Semigroup (Maybe a) where
96 instance Semigroup [a] where
99 instance Semigroup (Either a b) where
104 instance (Semigroup a, Semigroup b) => Semigroup (a, b) where
108 instance (Semigroup a, Semigroup b, Semigroup c) => Semigroup (a, b, c) where
112 instance (Semigroup a, Semigroup b, Semigroup c, Semigroup d)
113          => Semigroup (a, b, c, d) where
117 instance (Semigroup a, Semigroup b, Semigroup c, Semigroup d, Semigroup e)
118          => Semigroup (a, b, c, d, e) where