bloodhound-0.8.0.0: src/Database/Bloodhound/Types/Class.hs

{-# LANGUAGE CPP #-}
module Database.Bloodhound.Types.Class
       ( Seminearring(..) )
       where

#if !MIN_VERSION_base(4,8,0)
import Data.Monoid
#endif

class Monoid a => Seminearring a where
  -- 0, +, *
  (<||>) :: a -> a -> a
  (<&&>) :: a -> a -> a
  (<&&>) = mappend

infixr 5 <||>
infixr 5 <&&>