X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FData.hs;h=78daea0e4f5c2d8886694b72d206832485fc1234;hb=4a47541267395ee2a0cb517021d8aba56b73c905;hp=8c746ddebfe9881c01b7b8a26df37c076d561779;hpb=86e0b4b9fd28ec0bdb9e376813e90f85e852ed64;p=ghc-base.git

diff --git a/Data/Data.hs b/Data/Data.hs
index 8c746dd..78daea0 100644
--- a/Data/Data.hs
+++ b/Data/Data.hs
@@ -114,7 +114,6 @@ import Data.Maybe
 import Control.Monad
 
 -- Imports for the instances
-import Data.Typeable
 import Data.Int              -- So we can give Data instance for Int8, ...
 import Data.Word             -- So we can give Data instance for Word8, ...
 #ifdef __GLASGOW_HASKELL__
@@ -481,8 +480,9 @@ data DataType = DataType
 
               deriving Show
 
-
--- | Representation of constructors
+-- | Representation of constructors. Note that equality on constructors
+-- with different types may not work -- i.e. the constructors for 'False' and
+-- 'Nothing' may compare equal.
 data Constr = Constr
                         { conrep    :: ConstrRep
                         , constring :: String