From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 11 Jul 2008 15:11:35 +0000 (+0000)
Subject: add a comment to the effect that printDoc prints FastStrings in UTF-8
X-Git-Tag: Before_cabalised-GHC~8
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cee4bfd3a0c0852946966333bbff47654e9e35b2

add a comment to the effect that printDoc prints FastStrings in UTF-8
---

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 }