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

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
......
Supports Markdown
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