X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fprelude%2FPreludeGlaST.hs;fp=ghc%2Flib%2Fprelude%2FPreludeGlaST.hs;h=11f6cf7c5cb2320d36cd017ca2bfc6bfefb8837b;hb=6de297d3c96538ada2b0164a27497bb2dbc72baf;hp=0000000000000000000000000000000000000000;hpb=769ce8e72ae626356ce57162b7ff448c0ef7e700;p=ghc-hetmet.git

diff --git a/ghc/lib/prelude/PreludeGlaST.hs b/ghc/lib/prelude/PreludeGlaST.hs
new file mode 100644
index 0000000..11f6cf7
--- /dev/null
+++ b/ghc/lib/prelude/PreludeGlaST.hs
@@ -0,0 +1,87 @@
+-- solely for backward-compatibility with pre-2.00 GHC systems.
+
+module PreludeGlaST (
+	Array(..), -- NB: makes internals visible
+	MutableVar,
+	ST,
+	ByteArray,
+	MutableArray,
+	MutableByteArray,
+	PrimIO,
+	Addr, Word,
+	CCallable(..), CReturnable(..),
+
+	boundsOfArray,
+	boundsOfByteArray,
+	fixPrimIO,
+	fixST,
+	forkPrimIO,
+	forkST,
+	freezeAddrArray,
+	freezeArray,
+	freezeCharArray,
+	freezeDoubleArray,
+	freezeFloatArray,
+	freezeIntArray,
+	indexAddrArray,
+	indexAddrOffAddr,
+	indexCharArray,
+	indexCharOffAddr,
+	indexDoubleArray,
+	indexDoubleOffAddr,
+	indexFloatArray,
+	indexFloatOffAddr,
+	indexIntArray,
+	indexIntOffAddr,
+	ioToST,
+	listPrimIO,
+	listST,
+	mapAndUnzipPrimIO,
+	mapAndUnzipST,
+	mapPrimIO,
+	mapST,
+	newAddrArray,
+	newArray,
+	newCharArray,
+	newDoubleArray,
+	newFloatArray,
+	newIntArray,
+	newVar,
+	readAddrArray,
+	readArray,
+	readCharArray,
+	readDoubleArray,
+	readFloatArray,
+	readIntArray,
+	readVar,
+	returnPrimIO,
+	returnST,
+	returnStrictlyST,
+	primIOToIO,
+	ioToPrimIO,
+	sameMutableArray,
+	sameMutableByteArray,
+	sameVar,
+	seqPrimIO,
+	seqST,
+	seqStrictlyST,
+	stToIO,
+	thawArray,
+	thenPrimIO,
+	thenST,
+	thenStrictlyST,
+	unsafeFreezeArray,
+	unsafeFreezeByteArray,
+	unsafeInterleavePrimIO,
+	unsafeInterleaveST,
+	unsafePerformPrimIO,
+	writeAddrArray,
+	writeArray,
+	writeCharArray,
+	writeDoubleArray,
+	writeFloatArray,
+	writeIntArray,
+	writeVar
+    ) where
+
+import GHCbase