From 85ab14975da38e0eb4394b1b5cc993f84a06a3e3 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 13 Mar 2013 11:07:43 +0900
Subject: [PATCH] Style hack to pass a test.

---
 ErrMsg.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ErrMsg.hs b/ErrMsg.hs
index cc910e2..0433f80 100644
--- a/ErrMsg.hs
+++ b/ErrMsg.hs
@@ -67,7 +67,7 @@ ppMsg spn sev dflag msg = fromMaybe def $ do
 ----------------------------------------------------------------
 
 showMsg :: DynFlags -> SDoc -> String
-showMsg dflag sdoc = map toNull $ showQualifiedPage dflag sdoc
+showMsg dflag sdoc = map toNull $ showUnqualifiedPage dflag sdoc
   where
     toNull '\n' = '\0'
     toNull x = x