shithub: MicroHs

ref: 588cd718de64fe6bbf8f7f7cd53d6e7b55106fc5
dir: /lib/Data/Ord.hs/

View raw version 
module Data.Ord(
  Ordering(..),
  eqOrdering,
  isEQ,
  ) where
import Data.Bool_Type
import Data.Ordering_Type
import Data.Int

isEQ :: Ordering -> Bool
isEQ EQ = True
isEQ _  = False

eqOrdering :: Ordering -> Ordering -> Bool
eqOrdering LT LT = True
eqOrdering EQ EQ = True
eqOrdering GT GT = True
eqOrdering _  _  = False