module Network.Services.TSN.Report (
report_debug,
report_error,
report_info,
report_warning )
where
import Network.Services.TSN.Logging (
log_debug,
log_error,
log_info,
log_warning )
import Network.Services.TSN.Terminal (
display_debug,
display_error,
display_info,
display_warning )
report_debug :: String -> IO ()
report_debug s = do
display_debug s
log_debug s
report_error :: String -> IO ()
report_error s = do
display_error $ "ERROR: " ++ s
log_error s
report_info :: String -> IO ()
report_info s = do
display_info s
log_info s
report_warning :: String -> IO ()
report_warning s = do
display_warning $ "WARNING: " ++ s
log_warning s