Merge pull request #118 from cdepillabout/phprint-handle-fix

Use correct handle for newline output
cdepillabout · Sep 26, 2022 · 1c3c612 · 1c3c612
2 parents 4ce43cc + 547fc88
commit 1c3c612
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Text/Pretty/Simple.hs b/src/Text/Pretty/Simple.hs
@@ -120,7 +120,7 @@ import Prettyprinter (SimpleDocStream)
 import Prettyprinter.Render.Terminal
       (Color (..), Intensity(Vivid,Dull), AnsiStyle,
        renderLazy, renderIO)
-import System.IO (Handle, stdout)
+import System.IO (Handle, stdout, hPutStrLn)
 
 import Text.Pretty.Simple.Internal
        (ColorOptions(..), Style(..), CheckColorTty(..),
@@ -526,7 +526,7 @@ pHPrintStringOpt checkColorTty outputOptions handle str = do
       NoCheckColorTty -> pure outputOptions
   liftIO $ do
     renderIO handle $ layoutStringAnsi realOutputOpts str
-    putStrLn ""
+    hPutStrLn handle ""
 
 -- | Like 'pShow' but takes 'OutputOptions' to change how the
 -- pretty-printing is done.