X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FTypeable.hs;h=7f0e974e56d5c9f6173de6a759f38f8f217d2e25;hb=3e23aaae1a1f07fd28f1092d0f79e13d66b72f09;hp=e56312934ffed22397abeecf7ae8b6a5356792b8;hpb=dcc348a1421cc0c5aa6c88eb0d32a1c6dbfa741e;p=ghc-base.git

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index e563129..7f0e974 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -105,7 +105,6 @@ import GHC.Stable       -- So we can give Typeable instance for StablePtr
 import Hugs.Prelude
 import Hugs.IO
 import Hugs.IORef
-import Hugs.ST
 import Hugs.IOExts
 #endif
 
@@ -465,7 +464,9 @@ INSTANCE_TYPEABLE1(Ratio,ratioTc,"Ratio")
 INSTANCE_TYPEABLE2(Either,eitherTc,"Either")
 INSTANCE_TYPEABLE2((->),funTc,"->")
 INSTANCE_TYPEABLE1(IO,ioTc,"IO")
+#ifdef __GLASGOW_HASKELL__
 INSTANCE_TYPEABLE2(ST,stTc,"ST")
+#endif
 INSTANCE_TYPEABLE0((),unitTc,"()")
 #ifndef __NHC__
 INSTANCE_TYPEABLE2((,),pairTc,",")