[project @ 2003-07-28 15:03:05 by panne]
[ghc-base.git] / System / Mem / StableName.hs
index 659dacb..bec26b5 100644 (file)
@@ -33,6 +33,10 @@ import Prelude
 
 import Data.Dynamic
 
+#ifdef __HUGS__
+import Hugs.Stable
+#endif
+
 #ifdef __GLASGOW_HASKELL__
 import GHC.IOBase      ( IO(..) )
 import GHC.Base                ( Int(..), StableName#, makeStableName#
@@ -106,5 +110,5 @@ instance Eq (StableName a) where
 
 #endif /* __GLASGOW_HASKELL__ */
 
-#include "Dynamic.h"
+#include "Typeable.h"
 INSTANCE_TYPEABLE1(StableName,stableNameTc,"StableName")