shithub: MicroHs

ref: 977b959064ac1d5d3ceba5ad7a32e29bb46bfc0c
dir: /lib/Data/Eq.hs/

View raw version 
module Data.Eq(
  module Data.Eq
  ) where
import Primitives
import Data.Bool_Type

infix 4 ==,/=

class Eq a where
  (==) :: a -> a -> Bool
  (/=) :: a -> a -> Bool
  x /= y = if x == y then False else True