From 5291caaaf5edd13c3227c085cc76da6b421fc879 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 27 Apr 2001 08:31:54 +0000
Subject: [PATCH] [project @ 2001-04-27 08:31:54 by simonmar] oops, can't use
 inCharRange here because of recursive dep.

---
 ghc/compiler/utils/Outputable.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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