[project @ 2003-04-21 16:32:05 by ross]

Hugs only: Key is defined in Hugs.Prelude (because it needs Dynamic)

diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index ea479b6..4a12b20 100644 (file)
--- a/Data/Dynamic.hs
+++ b/Data/Dynamic.hs
@@ -437,7 +437,9 @@ INSTANCE_TYPEABLE1(IORef,ioRefTc,"IORef")
 --
 ---------------------------------------------
 
+#ifndef __HUGS__
 newtype Key = Key Int deriving( Eq )
+#endif
 
 data KeyPr = KeyPr !Key !Key deriving( Eq )