summaryrefslogtreecommitdiffhomepage
path: root/src/IPC
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-04 01:15:40 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-04 01:15:40 +0100
commit2991a3c18b00bb41197e6a688c4ce07ad52057c0 (patch)
tree7e1b2314940b9c62ce474fd14901b6c24732195e /src/IPC
parentfdc91a62c37bd475440bee275e6b0329833f6af4 (diff)
downloadxmobar-2991a3c18b00bb41197e6a688c4ce07ad52057c0.tar.gz
xmobar-2991a3c18b00bb41197e6a688c4ce07ad52057c0.tar.bz2
Removing uneeded uses of hiding (catch)
Diffstat (limited to 'src/IPC')
-rw-r--r--src/IPC/DBus.hs8
1 files changed, 3 insertions, 5 deletions
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