shithub: MicroHs

ref: b29c281fb78c5fec611a49f8e0b791d3e9c48264
dir: /lib/Data/Ord.hs/

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

data Ordering = LT | EQ | GT

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