-
--- | Display and log an error condition. This will prefix the error
--- with "ERROR: " when displaying (but not logging) it so that it
--- stands out.
---
-report_error :: String -> IO ()
-report_error s = do
- display_error $ "ERROR: " ++ s
- log_error s
-
-
--- | Display and log an informational (status) message.
---
-report_info :: String -> IO ()
-report_info s = do
- display_info s
- log_info s
-
-
--- | Display and log a warning. This will prefix the warning with
--- "WARNING: " when displaying (but not logging) it so that it
--- stands out.
---
-report_warning :: String -> IO ()
-report_warning s = do
- display_warning $ "WARNING: " ++ s
- log_warning s
-
-
--- | Receive a single line of text from a Handle, and send it to the
--- debug log.