From 2a1230543414ab09fd29b99ad722d9a963bd43cc Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 6 May 2020 20:11:25 +0100 Subject: hlinting --- src/Xmobar/Plugins/Monitors/Volume.hs | 6 ++---- 1 file 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 @@ -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 -- cgit v1.2.3