From 18ca279fb4f5f9919ab410ac3dd5c620a02e3639 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 27 Feb 2001 13:38:15 +0000
Subject: [PATCH] [project @ 2001-02-27 13:38:15 by simonmar] remove
 PutFullMVar

---
 ghc/lib/std/PrelIOBase.lhs |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/ghc/lib/std/PrelIOBase.lhs b/ghc/lib/std/PrelIOBase.lhs
index a2b8fd0..fef341e 100644
--- a/ghc/lib/std/PrelIOBase.lhs
+++ b/ghc/lib/std/PrelIOBase.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelIOBase.lhs,v 1.35 2001/02/22 13:17:58 simonpj Exp $
+% $Id: PrelIOBase.lhs,v 1.36 2001/02/27 13:38:15 simonmar Exp $
 % 
 % (c) The University of Glasgow, 1994-2000
 %
@@ -405,7 +405,6 @@ data Exception
   | AssertionFailed	String		-- Assertions
   | DynException	Dynamic		-- Dynamic exceptions
   | AsyncException	AsyncException	-- Externally generated errors
-  | PutFullMVar 			-- Put on a full MVar
   | BlockedOnDeadMVar			-- Blocking on a dead MVar
   | NonTermination
   | UserError		String
@@ -468,7 +467,6 @@ instance Show Exception where
   showsPrec _ (AssertionFailed err)      = showString err
   showsPrec _ (DynException _err)        = showString "unknown exception"
   showsPrec _ (AsyncException e)	 = shows e
-  showsPrec _ (PutFullMVar)		 = showString "putMVar: full MVar"
   showsPrec _ (BlockedOnDeadMVar)	 = showString "thread blocked indefinitely"
   showsPrec _ (NonTermination)           = showString "<<loop>>"
   showsPrec _ (UserError err)            = showString err
-- 
1.7.10.4