--- | Output the given line to stdout. The silly camelCase name is for
--- consistency with e.g. putStrLn.
+-- | Output the given line to the given handle, in blue. The silly
+-- camelCase name is for consistency with e.g. hPutStrLn.
+hPutBlueStr :: Handle -> String -> IO ()
+hPutBlueStr h = with_color Blue . hPutStr h
+
+-- | Output the given line to stdout, in green. The silly camelCase
+-- name is for consistency with e.g. putStrLn.