From 23a3b81bfd480e5a1d63bbad91e2b611b99758e1 Mon Sep 17 00:00:00 2001
From: Martin Perner <martin@perner.cc>
Date: Tue, 30 Aug 2011 16:38:04 +0200
Subject: catch alsa exception on decibel acquire

This closes #17.

For some reasons the alsa interface does not provide a dB value on all
systems. Instead an error is returned.
The alsa-mixer library checks for such return values and throws an
exception if one is detected.

This patch catches the exception and returns 0 as dB value.
---
 src/Plugins/Monitors/Volume.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Plugins/Monitors')

diff --git a/src/Plugins/Monitors/Volume.hs b/src/Plugins/Monitors/Volume.hs
index 50a6ed4..3e3a8b9 100644
--- a/src/Plugins/Monitors/Volume.hs
+++ b/src/Plugins/Monitors/Volume.hs
@@ -14,10 +14,12 @@
 
 module Plugins.Monitors.Volume (runVolume, volumeConfig) where
 
+import Prelude hiding ( catch )
 import Control.Monad ( liftM, mplus )
 import Data.Maybe
 import Plugins.Monitors.Common
 import Sound.ALSA.Mixer
+import Sound.ALSA.Exception ( catch )
 import System.Console.GetOpt
 
 volumeConfig :: IO MConfig
@@ -115,7 +117,8 @@ runVolume mixerName controlName argv = do
         maybeNA = maybe (return "N/A")
     (lo, hi) <- io $ getRange volumeControl
     val <- io $ getChannel FrontLeft $ value volumeControl
-    db <- io $ getChannel FrontLeft $ dB volumeControl
+    db <- io $ catch (getChannel FrontLeft $ dB volumeControl)
+                     (\_ -> return $ Just 0)
     sw <- io $ getChannel FrontLeft switchControl
     p <- maybeNA (formatVol lo hi) val
     b <- maybeNA (formatVolBar lo hi) val
-- 
cgit v1.2.3