summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Plugins/Monitors/Common.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs
index caf2e98..46543e1 100644
--- a/Plugins/Monitors/Common.hs
+++ b/Plugins/Monitors/Common.hs
@@ -151,7 +151,8 @@ runM args conf action r cb = do go
where go = do
c <- conf
let ac = doArgs args action
- s <- handle (\x -> const (return "error") $ x `asTypeOf` (undefined::SomeException)) $ runReaderT ac c
+ he = return . (++) "error: " . show . flip asTypeOf (undefined::SomeException)
+ s <- handle he $ runReaderT ac c
cb s
tenthSeconds r
go