From de7b76e48fff5c85aca088663f239580233ce637 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 28 Feb 2009 00:53:55 +0000
Subject: Do not show package name in warning message

---
 src/Haddock/Interface/Rename.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock/Interface/Rename.hs')

diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 3e4f6fbc..05bb2ccf 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -68,7 +68,7 @@ renameInterface renamingEnv warnings mod =
     -- report things that we couldn't link to. Only do this for non-hidden
     -- modules.
     unless (OptHide `elem` ifaceOptions mod || null strings || not warnings) $
-      tell ["Warning: " ++ show (ppr (ifaceMod mod) defaultUserStyle) ++
+      tell ["Warning: " ++ moduleString (ifaceMod mod) ++
             ": could not find link destinations for:\n"++
             "   " ++ concat (map (' ':) strings) ]
 
-- 
cgit v1.2.3