blob: ef32f89cdd7d7f8d63b7b76d85ad645ed4f2e559 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module GHC.Base (module GHC.Base, Bool(..)) where
import GHC.Types
default ()
class Eq a where
(==), (/=) :: a -> a -> Bool
x /= y = not (x == y)
x == y = not (x /= y)
instance Eq Bool where
False == False = True
True == True = True
_ == _ = False
not :: Bool -> Bool
not True = False
not False = True
inline x = x
|
