X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Flib%2Fprelude%2FPreludeGlaST.hs;h=179b648b89b62999e1671134b3fd86fb2c442316;hp=11f6cf7c5cb2320d36cd017ca2bfc6bfefb8837b;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/lib/prelude/PreludeGlaST.hs b/ghc/lib/prelude/PreludeGlaST.hs
index 11f6cf7..179b648 100644
--- a/ghc/lib/prelude/PreludeGlaST.hs
+++ b/ghc/lib/prelude/PreludeGlaST.hs
@@ -8,7 +8,7 @@ module PreludeGlaST (
 	MutableArray,
 	MutableByteArray,
 	PrimIO,
-	Addr, Word,
+	Addr(..), Word(..),
 	CCallable(..), CReturnable(..),
 
 	boundsOfArray,
@@ -57,6 +57,7 @@ module PreludeGlaST (
 	returnPrimIO,
 	returnST,
 	returnStrictlyST,
+	runST,
 	primIOToIO,
 	ioToPrimIO,
 	sameMutableArray,
@@ -82,6 +83,12 @@ module PreludeGlaST (
 	writeFloatArray,
 	writeIntArray,
 	writeVar
+#ifndef __PARALLEL_HASKELL__
+	, makeStablePtr
+	, deRefStablePtr
+	, freeStablePtr
+	, performGC
+#endif
     ) where
 
 import GHCbase