From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 24 Jan 2008 09:12:16 +0000 (+0000)
Subject: The default uncaught exception handler was adding an extra \n
X-Git-Tag: 2008-05-28~81
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=05af852451e7bd3591c5c7c3bde0df9c7ed1ee22;p=ghc-base.git

The default uncaught exception handler was adding an extra \n
---

diff --git a/Control/Exception.hs b/Control/Exception.hs
index e52f674..66ec04c 100644
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -576,7 +576,7 @@ uncaughtExceptionHandler = unsafePerformIO (newIORef defaultHandler)
          let msg = case ex of
                Deadlock    -> "no threads to run:  infinite loop or deadlock?"
                ErrorCall s -> s
-               other       -> showsPrec 0 other "\n"
+               other       -> showsPrec 0 other ""
          withCString "%s" $ \cfmt ->
           withCString msg $ \cmsg ->
             errorBelch cfmt cmsg