X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIOBase.lhs;h=233148b0eaffffa011ccb91673cacb6e5820d0c8;hb=28fb12f4e4059674e9396fc76a2783e0ae8798cd;hp=87001285c836fa016452f531eedecdfbae68d289;hpb=24b6429c53ce9f632963c9a8102d73afe35a50df;p=ghc-base.git

diff --git a/GHC/IOBase.lhs b/GHC/IOBase.lhs
index 8700128..233148b 100644
--- a/GHC/IOBase.lhs
+++ b/GHC/IOBase.lhs
@@ -1,5 +1,5 @@
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.IOBase
@@ -568,6 +568,10 @@ data Exception
 	-- ^The current thread was executing a call to
 	-- 'Control.Concurrent.MVar.takeMVar' that could never return,
 	-- because there are no other references to this 'MVar'.
+  | BlockedIndefinitely
+	-- ^The current thread was waiting to retry an atomic memory transaction
+	-- that could never become possible to complete because there are no other
+	-- threads referring to any of teh TVars involved.
   | Deadlock
 	-- ^There are no runnable threads, so the program is
 	-- deadlocked.  The 'Deadlock' exception is
@@ -705,6 +709,7 @@ instance Show Exception where
   showsPrec _ (DynException _err)        = showString "unknown exception"
   showsPrec _ (AsyncException e)	 = shows e
   showsPrec _ (BlockedOnDeadMVar)	 = showString "thread blocked indefinitely"
+  showsPrec _ (BlockedIndefinitely)	 = showString "thread blocked indefinitely"
   showsPrec _ (NonTermination)           = showString "<<loop>>"
   showsPrec _ (Deadlock)                 = showString "<<deadlock>>"