From 2991a3c18b00bb41197e6a688c4ce07ad52057c0 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 4 Feb 2013 01:15:40 +0100
Subject: Removing uneeded uses of hiding (catch)

---
 src/IPC/DBus.hs                |  8 +++-----
 src/Plugins/Mail.hs            |  1 -
 src/Plugins/Monitors/Volume.hs | 11 +++++++----
 3 files changed, 10 insertions(+), 10 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
diff --git a/src/Plugins/Mail.hs b/src/Plugins/Mail.hs
index b11b7ad..d146d17 100644
--- a/src/Plugins/Mail.hs
+++ b/src/Plugins/Mail.hs
@@ -14,7 +14,6 @@
 
 module Plugins.Mail where
 
-import Prelude hiding (catch)
 import Plugins
 import Plugins.Utils (expandHome, changeLoop)
 
diff --git a/src/Plugins/Monitors/Volume.hs b/src/Plugins/Monitors/Volume.hs
index 23dc348..f3d0f4c 100644
--- a/src/Plugins/Monitors/Volume.hs
+++ b/src/Plugins/Monitors/Volume.hs
@@ -19,7 +19,7 @@ import Control.Monad ( join, liftM2, liftM3, mplus )
 import Data.Traversable (sequenceA)
 import Plugins.Monitors.Common
 import Sound.ALSA.Mixer
-import Sound.ALSA.Exception ( catch )
+import qualified Sound.ALSA.Exception as AE
 import System.Console.GetOpt
 
 volumeConfig :: IO MConfig
@@ -124,10 +124,12 @@ runVolume mixerName controlName argv = do
   where
 
     volumeControl :: Maybe Control -> Maybe Volume
-    volumeControl c = join $ (playback . volume <$> c) `mplus` (common . volume <$> c)
+    volumeControl c = join $
+           (playback . volume <$> c) `mplus` (common . volume <$> c)
 
     switchControl :: Maybe Control -> Maybe Switch
-    switchControl c = join $ (playback . switch <$> c) `mplus` (common . switch <$> c)
+    switchControl c = join $
+           (playback . switch <$> c) `mplus` (common . switch <$> c)
 
     liftMaybe :: Maybe (IO (a,b)) -> IO (Maybe a, Maybe b)
     liftMaybe = fmap (liftM2 (,) (fmap fst) (fmap snd)) . sequenceA
@@ -138,7 +140,8 @@ runVolume mixerName controlName argv = do
 
     getDB :: Maybe Volume -> Monitor (Maybe Integer)
     getDB Nothing = return Nothing
-    getDB (Just v) = io $ catch (getChannel FrontLeft $ dB v) (const $ return $ Just 0)
+    getDB (Just v) = io $ AE.catch (getChannel FrontLeft $ dB v)
+                                   (const $ return $ Just 0)
 
     getVal :: Maybe Volume -> Monitor (Maybe Integer)
     getVal Nothing = return Nothing
-- 
cgit v1.2.3