From 05af852451e7bd3591c5c7c3bde0df9c7ed1ee22 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 24 Jan 2008 09:12:16 +0000 Subject: [PATCH] The default uncaught exception handler was adding an extra \n --- Control/Exception.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4