-- | Set output color to red, run given action, and finally restore the default
-- color.
withFailColor :: FormatM a -> FormatM a
withFailColor s = liftF (WithFailColor s id)
withFailColor :: FormatM a -> FormatM a
withFailColor s = liftF (WithFailColor s id)
withFailColor s = liftF (WithFailColor s id)