From c76c25f2452fd9bb69cab12aa747b30119b18cd9 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Mon, 21 Apr 2003 16:32:05 +0000
Subject: [PATCH] [project @ 2003-04-21 16:32:05 by ross] Hugs only: Key is
 defined in Hugs.Prelude (because it needs Dynamic)

---
 Data/Dynamic.hs |    2 ++
 1 file changed, 2 insertions(+)

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