From: ross <unknown>
Date: Wed, 11 Dec 2002 16:12:22 +0000 (+0000)
Subject: [project @ 2002-12-11 16:12:22 by ross]
X-Git-Tag: nhc98-1-18-release~787
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=54888ec2a131ae185abf92d781b52da047f86619;p=ghc-base.git

[project @ 2002-12-11 16:12:22 by ross]
non-GHC: keep the old definition of Obj.
---

diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index 6379d33..e55dae6 100644
--- a/Data/Dynamic.hs
+++ b/Data/Dynamic.hs
@@ -110,6 +110,7 @@ instance Show Dynamic where
 	  showsPrec 0 t   . 
 	  showString ">>"
 
+#ifdef __GLASGOW_HASKELL__
 type Obj = forall a . a
  -- Dummy type to hold the dynamically typed value.
  --
@@ -120,6 +121,9 @@ type Obj = forall a . a
  -- the other hand, if we use a polymorphic type, GHC will use
  -- a fallback convention for evaluating it that works for all types.
  -- (using a function type here would also work).
+#else
+data Obj = Obj
+#endif
 
 -- | A concrete representation of a (monomorphic) type.  'TypeRep'
 -- supports reasonably efficient equality.