Commit 5291caaa authored by simonmar's avatar simonmar
Browse files

[project @ 2001-04-27 08:31:54 by simonmar]

oops, can't use inCharRange here because of recursive dep.
parent c37f406c
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment