diff options
| author | Julien Dessaux | 2010-02-04 23:34:15 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2010-02-04 23:34:15 +0100 |
| commit | 416460886da9f8d835200ca46c9062a4ebd78fe7 (patch) | |
| tree | f76663fd592d13031f494674c8c602e624f1d03d /Hsbot/Utils.hs | |
| parent | Began a complete rewrite of command and plugin management. (diff) | |
| download | hsbot-416460886da9f8d835200ca46c9062a4ebd78fe7.tar.gz hsbot-416460886da9f8d835200ca46c9062a4ebd78fe7.tar.bz2 hsbot-416460886da9f8d835200ca46c9062a4ebd78fe7.zip | |
Continue rewriting, found a problem in the way I kill plugins.
Diffstat (limited to 'Hsbot/Utils.hs')
| -rw-r--r-- | Hsbot/Utils.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs index b84b028..a58fd0c 100644 --- a/Hsbot/Utils.hs +++ b/Hsbot/Utils.hs @@ -34,9 +34,9 @@ traceM :: String -> IrcBot () traceM msg = liftIO $ trace msg -- | Logs an error message -error :: String -> IO () -error msg = trace $ inColor msg [31] +traceRed :: String -> IO () +traceRed msg = trace $ inColor msg [31] -errorM :: String -> a () -error msg = liftIO $ error msg +errorM :: String -> IrcBot () +errorM msg = liftIO $ traceRed msg |