From 588b7cd35a516409fb5b7f09c712ed9bdf61fe42 Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Tue, 4 Apr 2000 07:55:24 +0000
Subject: [PATCH] [project @ 2000-04-04 07:55:24 by andy] Adding names of
 various primitives, as required by the extended libs.

---
 ghc/lib/hugs/PrimPrel.hs |   27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/ghc/lib/hugs/PrimPrel.hs b/ghc/lib/hugs/PrimPrel.hs
index d2190d3..4f6846d 100644
--- a/ghc/lib/hugs/PrimPrel.hs
+++ b/ghc/lib/hugs/PrimPrel.hs
@@ -103,10 +103,24 @@ module PrimPrel (
     seq, ($!)
 	-- Now we have the extra (non standard) thing.
 
+	, AsyncException(..)
+	, ArithException(..)
+	, Dynamic(..)
+	, Exception(..)
 	, IORef
 	, PrimArray
+	, PrimMutableArray
+	, RealWorld
+	, ST
+	, STRef
+	, TyCon(..)
+	, TypeRep(..)
+	, assert
 	, copy_String_to_cstring
+	, ioToST
+	, ioToST
 	, newIORef
+	, newSTRef
 	, nh_close
 	, nh_errno
 	, nh_exitwith 
@@ -132,13 +146,26 @@ module PrimPrel (
 	, primIntToChar
 	, primNewArray
 	, primReadArray
+	, primReallyUnsafePtrEquality
+	, primSizeArray
+	, primSizeMutableArray
+	, primUnsafeCoerce
 	, primUnsafeFreezeArray
 	, primWriteArray
 	, primWriteCharOffAddr
 	, readIORef
+	, readSTRef
 	, runST
+	, stToIO
+	, throw
+	, unST
+	, unsafeInterleaveIO
+	, unsafeInterleaveST
+	, unsafePerformIO
 	, unsafePerformIO
 	, writeIORef
+	, writeSTRef
+        , catchException 
     ) where
 
 -- Standard value bindings {Prelude} ----------------------------------------
-- 
1.7.10.4