From c08d8ef08b00934a302b7ab10f5d62c8f06720f9 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 23 Jul 2010 16:26:49 +0000 Subject: [PATCH] When (un)loading an object fails, say which object in teh panic --- compiler/ghci/ObjLink.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/ObjLink.lhs b/compiler/ghci/ObjLink.lhs index c8a6682..ec91616 100644 --- a/compiler/ghci/ObjLink.lhs +++ b/compiler/ghci/ObjLink.lhs @@ -69,13 +69,13 @@ loadObj :: String -> IO () loadObj str = do withCString str $ \c_str -> do r <- c_loadObj c_str - when (r == 0) (panic "loadObj: failed") + when (r == 0) (panic ("loadObj " ++ show str ++ ": failed")) unloadObj :: String -> IO () unloadObj str = withCString str $ \c_str -> do r <- c_unloadObj c_str - when (r == 0) (panic "unloadObj: failed") + when (r == 0) (panic ("unloadObj " ++ show str ++ ": failed")) resolveObjs :: IO SuccessFlag resolveObjs = do -- 1.7.10.4