From 86d2d7dd6a95f99b1c7608f594dd441318030ef1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 27 Apr 2001 11:23:48 +0000
Subject: [PATCH] [project @ 2001-04-27 11:23:48 by simonmar] er.. wibble

---
 ghc/compiler/utils/Outputable.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index 2dd48ce..b805da4 100644
--- a/ghc/compiler/utils/Outputable.lhs
+++ b/ghc/compiler/utils/Outputable.lhs
@@ -371,7 +371,7 @@ showCharLit c rest
 -- of Char and String.
 
 pprHsChar :: Int -> SDoc
-pprHsChar c | c > 0x10ffff = char '\\' <> show (fromIntegral c :: Word32)
+pprHsChar c | c > 0x10ffff = char '\\' <> text (show (fromIntegral c :: Word32))
             | otherwise    = text (show (chr c))
 
 pprHsString :: FastString -> SDoc
-- 
1.7.10.4