From 638a9d5a9022e451e6eea4cc66eb1cf4d2d65f03 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Sun, 11 Oct 2009 03:56:18 +0200
Subject: Support for base 4 without base-3 compatibility

Ignore-this: 6846a123ade5dc1164841e62beabbf71

darcs-hash:20091011015618-1499c-f91811df4a05f6e4d236faaa5f4b4050613253e1.gz
---
 Plugins/Monitors/Common.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Plugins/Monitors')

diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs
index 1b5cb60..7ac10c2 100644
--- a/Plugins/Monitors/Common.hs
+++ b/Plugins/Monitors/Common.hs
@@ -55,7 +55,7 @@ import Data.List
 import Numeric
 import Text.ParserCombinators.Parsec
 import System.Console.GetOpt
-import Control.Exception (handle)
+import Control.Exception (SomeException,handle)
 
 import Plugins
 -- $monitor
@@ -149,7 +149,7 @@ runM args conf action r cb = do go
     where go = do
             c <- conf
             let ac = doArgs args action
-            s <- handle (const $ return "error") $ runReaderT ac c
+            s <- handle (\x -> const (return "error") $ x `asTypeOf` (undefined::SomeException)) $ runReaderT ac c
             cb s
             tenthSeconds r
             go
-- 
cgit v1.2.3