Commit 231bd36b authored by Ian Lynagh's avatar Ian Lynagh

Update base01

parent be5ac1eb
module GHC.Base where
module GHC.Base (module GHC.Base, Bool(..)) where
import GHC.Bool
import GHC.Prim
default ()
......@@ -11,7 +12,10 @@ class Eq a where
x /= y = not (x == y)
x == y = not (x /= y)
data Bool = False | True deriving Eq
instance Eq Bool where
False == False = True
True == True = True
_ == _ = False
not :: Bool -> Bool
not True = False
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment