blob: 9149f8544b3a5939a8a488bcbedab90e674d7d80 (
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
25
|
module GHC.Base (module GHC.Base, Bool(..)) where
import GHC.Prim
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
|