X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FMonad%2FST.hs;h=0e3485725e40d34c4a1f141a7ee0686d535d3c27;hb=6d89a2fe861274e66e6fa0a5cdd48b1161b33b75;hp=c51ea9a36376c194c602cc1421551da7f9b38337;hpb=9185a42d2848131d1272e79cf1e04430fb96b6d0;p=ghc-base.git

diff --git a/Control/Monad/ST.hs b/Control/Monad/ST.hs
index c51ea9a..0e34857 100644
--- a/Control/Monad/ST.hs
+++ b/Control/Monad/ST.hs
@@ -41,6 +41,7 @@ import Data.Typeable
 import Hugs.ST
 import qualified Hugs.LazyST as LazyST
 
+INSTANCE_TYPEABLE2(ST,sTTc,"ST")
 INSTANCE_TYPEABLE0(RealWorld,realWorldTc,"RealWorld")
 
 fixST :: (a -> ST s a) -> ST s a