diff options
Diffstat (limited to 'Plugins/Monitors/Common.hs')
| -rw-r--r-- | Plugins/Monitors/Common.hs | 3 |
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 |