From 1cdc45b38b83853a7530f7ef1fd687b61793caf1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 13 Mar 2000 10:54:49 +0000
Subject: [PATCH] [project @ 2000-03-13 10:54:49 by simonmar] Add new
 exception: PutFullMVar for putting into an already full
 MVar.

---
 ghc/lib/std/PrelException.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/lib/std/PrelException.lhs b/ghc/lib/std/PrelException.lhs
index 0a548df..f5a3a0b 100644
--- a/ghc/lib/std/PrelException.lhs
+++ b/ghc/lib/std/PrelException.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelException.lhs,v 1.11 2000/01/30 10:25:28 simonmar Exp $
+% $Id: PrelException.lhs,v 1.12 2000/03/13 10:54:49 simonmar Exp $
 %
 % (c) The GRAP/AQUA Project, Glasgow University, 1998
 %
@@ -38,6 +38,7 @@ data Exception
   | AssertionFailed	String		-- Assertions
   | DynException	Dynamic		-- Dynamic exceptions
   | AsyncException	AsyncException	-- Externally generated errors
+  | PutFullMVar				-- Put on a full MVar
   | NonTermination
 
 data ArithException
@@ -83,6 +84,7 @@ instance Show Exception where
   showsPrec _ (AssertionFailed err)      = showString err
   showsPrec _ (AsyncException e)	 = shows e
   showsPrec _ (DynException _err)        = showString "unknown exception"
+  showsPrec _ (PutFullMVar)		 = showString "putMVar: full MVar"
   showsPrec _ (NonTermination)           = showString "<<loop>>"
 
 -- Primitives:
-- 
1.7.10.4