From: simonmar <unknown>
Date: Wed, 14 Jul 1999 08:33:38 +0000 (+0000)
Subject: [project @ 1999-07-14 08:33:38 by simonmar]
X-Git-Tag: Approximately_9120_patches~6004
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d1ab5c3837c3c2e30eee18e7c1893a6741475e17

[project @ 1999-07-14 08:33:38 by simonmar]
Add NonTermination to the exception type.  Prints as "<<loop>>"
(better suggestions welcome).
---

diff --git a/ghc/lib/std/PrelException.lhs b/ghc/lib/std/PrelException.lhs
index 8fa7228..56d116e 100644
--- a/ghc/lib/std/PrelException.lhs
+++ b/ghc/lib/std/PrelException.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelException.lhs,v 1.7 1999/05/18 14:59:16 simonpj Exp $
+% $Id: PrelException.lhs,v 1.8 1999/07/14 08:33:38 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
+  | NonTermination
 
 data ArithException
   = Overflow
@@ -82,6 +83,7 @@ instance Show Exception where
   showsPrec _ (AssertionFailed err)      = showString err
   showsPrec _ (AsyncException e)	 = shows e
   showsPrec _ (DynException _err)        = showString "unknown exception"
+  showsPrec _ (NonTermination)           = showString "<<loop>>"
 
 -- Primitives: