diff options
| -rw-r--r-- | reaktor2.cabal | 2 | ||||
| -rw-r--r-- | src/Reaktor/Plugins/System.hs | 9 |
2 files changed, 6 insertions, 5 deletions
diff --git a/reaktor2.cabal b/reaktor2.cabal index d97cad9..f93d918 100644 --- a/reaktor2.cabal +++ b/reaktor2.cabal @@ -1,5 +1,5 @@ name: reaktor2 -version: 0.1.2 +version: 0.1.3 license: MIT author: tv <tv@krebsco.de> maintainer: tv <tv@krebsco.de> 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 = |