X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FDynamic.hs;fp=Data%2FDynamic.hs;h=4a12b205fb4cf412dffc9180333e0deca52e4b33;hb=c76c25f2452fd9bb69cab12aa747b30119b18cd9;hp=ea479b65d74bb99a774f4b15814fcfedf4565676;hpb=950ea620c19650754db3ae6058be71f0cdb89bb5;p=haskell-directory.git

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 )