From: ross <unknown>
Date: Mon, 21 Apr 2003 16:32:05 +0000 (+0000)
Subject: [project @ 2003-04-21 16:32:05 by ross]
X-Git-Tag: nhc98-1-18-release~679
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c76c25f2452fd9bb69cab12aa747b30119b18cd9;p=ghc-base.git

[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
--- 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 )