base-unicode-symbols-0.1: Data/Monoid/Unicode.hs

{-# LANGUAGE UnicodeSyntax #-}

module Data.Monoid.Unicode 
    ( (∅)
    , (⊕) 
    ) where

import Data.Monoid ( Monoid, mempty, mappend )

{- |
(∅) = 'mempty'

U+2205, EMPTY SET
-}
(∅) ∷ Monoid α ⇒ α
(∅) = mempty

{- |
(⊕) = 'mappend'

U+2295, CIRCLED PLUS
-}
(⊕) ∷ Monoid α ⇒ α → α → α
(⊕) = mappend

infixr 6 ⊕