From cee4bfd3a0c0852946966333bbff47654e9e35b2 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 11 Jul 2008 15:11:35 +0000 Subject: [PATCH] add a comment to the effect that printDoc prints FastStrings in UTF-8 --- compiler/utils/Pretty.lhs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/compiler/utils/Pretty.lhs b/compiler/utils/Pretty.lhs index 94173ab..5219484 100644 --- a/compiler/utils/Pretty.lhs +++ b/compiler/utils/Pretty.lhs @@ -996,6 +996,10 @@ spaces n | n <=# _ILIT(0) = "" pprCols :: Int pprCols = 120 -- could make configurable +-- NB. printDoc prints FastStrings in UTF-8: hPutFS below does no decoding. +-- This is what we usually want, because the IO library has no encoding +-- functionality, and we're assuming UTF-8 source code so we might as well +-- assume UTF-8 output too. printDoc :: Mode -> Handle -> Doc -> IO () printDoc LeftMode hdl doc = do { printLeftRender hdl doc; hFlush hdl } -- 1.7.10.4