+++ /dev/null
-
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
-
-module GHC.Bool (Bool(..)) where
-
--- We need Inl etc behind the scenes for the Bool definition
-import GHC.Generics ()
-
-default ()
-
-data Bool = False | True
) where
#if WORD_SIZE_IN_BITS < 32
-import GHC.Bool
import GHC.Prim
+import GHC.Types
foreign import unsafe "stg_eqWord32" eqWord32# :: Word32# -> Word32# -> Bool
foreign import unsafe "stg_neWord32" neWord32# :: Word32# -> Word32# -> Bool
) where
#if WORD_SIZE_IN_BITS < 64
-import GHC.Bool
import GHC.Prim
+import GHC.Types
foreign import ccall unsafe "hs_eqWord64" eqWord64# :: Word64# -> Word64# -> Bool
foreign import ccall unsafe "hs_neWord64" neWord64# :: Word64# -> Word64# -> Bool
{-# OPTIONS_GHC -XNoImplicitPrelude #-}
-module GHC.Types (Char(..), Int(..), Float(..), Double(..), IO(..)) where
+module GHC.Types (Bool(..), Char(..), Int(..), Float(..), Double(..), IO(..)) where
import GHC.Prim
-- We need Inl etc behind the scenes for the type definitions
data [] a = [] | a : [a]
+data Bool = False | True
+
{-| The character type 'Char' is an enumeration whose values represent
Unicode (or equivalently ISO\/IEC 10646) characters
(see <http://www.unicode.org/> for details).