X-Git-Url: http://git.megacz.com/?p=ghc-prim.git;a=blobdiff_plain;f=GHC%2FTypes.hs;fp=GHC%2FTypes.hs;h=59ce3860a1a26af6f5f783a96cc8301dac602678;hp=b2d02916065f05c51707782a34045807104ca3d6;hb=49d560213f818de8ed7713ed9c3bf2ed210b076a;hpb=47b0aefd1330d5fcb1e81bf613223e3482d7bbc7

diff --git a/GHC/Types.hs b/GHC/Types.hs
index b2d0291..59ce386 100644
--- a/GHC/Types.hs
+++ b/GHC/Types.hs
@@ -16,7 +16,7 @@
 
 {-# 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
@@ -26,6 +26,8 @@ infixr 5 :
 
 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).