withLogHandlePP :: PP -> Handle -> PP
withLogHandlePP pp proc = pp { ppOutput = hPutStrLn proc . escapeStatusCodes }
withLogHandlePP :: PP -> Handle -> PP
withLogHandlePP pp proc = pp { ppOutput = hPutStrLn proc . escapeStatusCodes }
withLogHandlePP pp proc = pp { ppOutput = hPutStrLn proc . escapeStatusCodes }