ultLogActionHPutStrDoc :: DynFlags -> Handle -> SDoc -> PprStyle -> IO ()
defaultLogActionHPutStrDoc dflags h d sty
    = do let doc = runSDoc d (initSDocContext dflags sty)
         hPutStr h (Pretty.render doc)
         hFlush h

ne
defaultLogActionHPutStrDoc :: DynFlags -> Handle -> SDoc -> PprStyle -> IO ()
defaultLogActionHPutStrDoc dflags h d sty
    = do let doc = runSDoc d (initSDocContext dflags sty)
         hPutStr h (Pretty.render doc)
         hFlush h
defaultLogActionHPutStrDoc dflags h d sty
    = do let doc = runSDoc d (initSDocContext dflags sty)
         hPutStr h (Pretty.render doc)
         hFlush h