Update base01

testsuite/tests/ghc-regress/module/base01/GHC/Base.hs

 
-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