shithub: MicroHs

ref: ecd3c2ec78634f6a125d8d28d8ae2d04bce3ad04
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