summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors/Volume.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Volume.hs')
-rw-r--r--src/Xmobar/Plugins/Monitors/Volume.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Volume.hs b/src/Xmobar/Plugins/Monitors/Volume.hs
index a52261f..c3b7470 100644
--- a/src/Xmobar/Plugins/Monitors/Volume.hs
+++ b/src/Xmobar/Plugins/Monitors/Volume.hs
@@ -1,7 +1,7 @@
-----------------------------------------------------------------------------
-- |
-- Module : Plugins.Monitors.Volume
--- Copyright : (c) 2011, 2013, 2015, 2018 Thomas Tuegel
+-- Copyright : (c) 2011, 2013, 2015, 2018, 2020 Thomas Tuegel
-- License : BSD-style (see LICENSE)
--
-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
@@ -23,7 +23,6 @@ module Xmobar.Plugins.Monitors.Volume
import Control.Applicative ( (<$>), liftA3 )
import Control.Monad ( liftM2, liftM3, mplus )
-import Data.Maybe (fromMaybe)
import Data.Traversable (sequenceA)
import Xmobar.Plugins.Monitors.Common
import Sound.ALSA.Mixer
@@ -257,6 +256,5 @@ runVolumeWith opts mixerName controlName = do
-- | Determine whether the volume is off based on the value of 'sw' from
-- 'runVolumeWith'.
- isVolOff = not . fromMaybe False
-
+ isVolOff = not . (Just True ==)
unavailable = getConfigValue naString