From 2991a3c18b00bb41197e6a688c4ce07ad52057c0 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 4 Feb 2013 01:15:40 +0100 Subject: Removing uneeded uses of hiding (catch) --- src/IPC/DBus.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'src/IPC/DBus.hs') diff --git a/src/IPC/DBus.hs b/src/IPC/DBus.hs index 60544a9..b95e59f 100644 --- a/src/IPC/DBus.hs +++ b/src/IPC/DBus.hs @@ -12,15 +12,13 @@ -- ----------------------------------------------------------------------------- -module IPC.DBus ( runIPC ) where - -import Prelude hiding (catch) +module IPC.DBus (runIPC) where import DBus import DBus.Client import Control.Monad (when) import Control.Concurrent.STM -import Control.Exception (catch) +import Control.Exception (handle) import System.IO (stderr, hPutStrLn) import Signal @@ -35,7 +33,7 @@ interfaceName :: InterfaceName interfaceName = interfaceName_ "org.Xmobar.Control" runIPC :: TMVar SignalType -> IO () -runIPC mvst = catch exportConnection printException +runIPC mvst = handle printException exportConnection where printException :: ClientError -> IO () printException = hPutStrLn stderr . clientErrorMessage -- cgit v1.2.3