- | `Message -> green ^ "Info: "
- | `Warning -> yellow ^ "Warn: "
- | `Error -> red ^ "Error: "
- | `Debug -> blue ^ "Debug: "
+ | `Message -> green ^ "Info: ", stdout
+ | `Warning -> yellow ^ "Warn: ", stderr
+ | `Error -> red ^ "Error: ", stderr
+ | `Debug -> blue ^ "Debug: ", stderr