-- | Format the current status using the supplied pretty-printing format,
--   and write it to stdout.
myDynamicLogWithPP :: PP -> X ()
myDynamicLogWithPP pp = myDynamicLogString pp >>= io . ppOutput pp
myDynamicLogWithPP :: PP -> X ()
myDynamicLogWithPP pp = myDynamicLogString pp >>= io . ppOutput pp
myDynamicLogWithPP pp = myDynamicLogString pp >>= io . ppOutput pp