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 --- src/Reaktor/Plugins/System.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src') 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