withLogHandlePPX :: X PP -> Handle -> X PP
withLogHandlePPX xpp proc = do
    pp <- xpp
    return (withLogHandlePP pp proc)
withLogHandlePPX :: X PP -> Handle -> X PP
withLogHandlePPX xpp proc = do
    pp <- xpp
    return (withLogHandlePP pp proc)
withLogHandlePPX xpp proc = do
    pp <- xpp
    return (withLogHandlePP pp proc)