summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-05-06 20:11:25 +0100
committerjao <jao@gnu.org>2020-05-06 20:11:25 +0100
commit2a1230543414ab09fd29b99ad722d9a963bd43cc (patch)
tree953bc1ab8d57a2edf2b20daaa0d0592fbba4f4b5
parent00663a63efc2df47a21fa3d4340aa673161d88a0 (diff)
downloadxmobar-2a1230543414ab09fd29b99ad722d9a963bd43cc.tar.gz
xmobar-2a1230543414ab09fd29b99ad722d9a963bd43cc.tar.bz2
hlinting
-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