From 6c629a0cc422872abdfc40f9621ac0c4f6a420a8 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 24 Jan 2019 21:15:18 +0100 Subject: Reaktor.Plugins.System: don't send errors --- reaktor2.cabal | 2 +- 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 maintainer: tv 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 = -- cgit v1.2.3