aboutsummaryrefslogtreecommitdiffstats
path: root/src/Reaktor/Plugins
diff options
context:
space:
mode:
Diffstat (limited to 'src/Reaktor/Plugins')
-rw-r--r--src/Reaktor/Plugins/System.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Reaktor/Plugins/System.hs b/src/Reaktor/Plugins/System.hs
index f31f640..6d73e70 100644
--- a/src/Reaktor/Plugins/System.hs
+++ b/src/Reaktor/Plugins/System.hs
@@ -134,13 +134,14 @@ run1 Config{..} Actions{..} Hook{..} prefix msgtarget text = do
onExcept :: SomeException -> IO ()
onExcept e = do
let s0 = T.show e
- s = T.replace (T.pack commandPath) name s0
aLog $ SGR [38,5,235] "! "
<> SGR [31,1] (Plain $ name <> ": " <> s0)
- aSend (privmsg audience (resultPrefix <> [s]))
- -- TODO use differenct colors
- onErrLine s = aSend (privmsg audience [s])
+ onErrLine :: Text -> IO ()
+ onErrLine s0 = do
+ aLog $ SGR [38,5,235] "2 "
+ <> SGR [31,1] (Plain $ name <> ": " <> s0)
+
onOutLine s = aSend (privmsg audience [s])
extraEnv =