diff options
Diffstat (limited to 'src/Reaktor')
| -rw-r--r-- | src/Reaktor/Plugins/System.hs | 9 |
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 = |