[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 (file)
--- 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.