shithub: MicroHs

ref: 766bc6f2cf7fe1d3413cad35d97db6f3f9b98492
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