[commit: ghc] wip/annotate-core: Fix errant newlines (34edba0)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/annotate-core
Link       : http://ghc.haskell.org/trac/ghc/changeset/34edba0e312cb736b26370536f65fb49d9b51b5e/ghc

>---------------------------------------------------------------

commit 34edba0e312cb736b26370536f65fb49d9b51b5e
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sat Jun 24 12:40:35 2017 -0400

    Fix errant newlines


>---------------------------------------------------------------

34edba0e312cb736b26370536f65fb49d9b51b5e
 compiler/utils/Pretty.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/utils/Pretty.hs b/compiler/utils/Pretty.hs
index 15b8c64..0f6ca4b 100644
--- a/compiler/utils/Pretty.hs
+++ b/compiler/utils/Pretty.hs
@@ -123,6 +123,7 @@ import GHC.Ptr  ( Ptr(..) )
 
 import qualified Data.Text as T
 import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.IO as TL
 
 import Data.Text.Prettyprint.Doc
 -- PI = PrettyprinterInternal
@@ -1010,7 +1011,7 @@ printDoc :: Mode -> Int -> Handle -> Doc a -> IO ()
 printDoc mode cols hdl doc = printDoc_ mode cols hdl (doc <> hardline)
 
 printDoc_ :: Mode -> Int -> Handle -> Doc a -> IO ()
-printDoc_ mode pprCols hdl doc = renderIO hdl (layoutPretty (mkLayoutOptions mode pprCols) doc) where
+printDoc_ mode pprCols hdl doc = TL.hPutStr hdl (renderLazy $ layoutPretty (mkLayoutOptions mode pprCols) doc) where
   mkLayoutOptions :: Mode -> Int -> LayoutOptions
   -- Note that this should technically be 1.5 as per the old implementation.
   -- I have no idea why that is.