summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorDaniel Schüssler <933504+DanielSchuessler@users.noreply.github.com>2018-10-06 20:37:31 +0200
committerDaniel Schüssler <933504+DanielSchuessler@users.noreply.github.com>2018-10-06 20:37:31 +0200
commitc2da066eceadca4bb6503c975b81a90b27d0e7e3 (patch)
tree795ebaaa42c092585fbf7d68f29ba925b05fd22c /src
parent4b81ed340f586fbc99d7888f8815539dd8e9f517 (diff)
downloadxmobar-c2da066eceadca4bb6503c975b81a90b27d0e7e3.tar.gz
xmobar-c2da066eceadca4bb6503c975b81a90b27d0e7e3.tar.bz2
Fix build warnings
Diffstat (limited to 'src')
-rw-r--r--src/Plugins/Monitors/Volume.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Volume.hs b/src/Plugins/Monitors/Volume.hs
index 5702137..0023d41 100644
--- a/src/Plugins/Monitors/Volume.hs
+++ b/src/Plugins/Monitors/Volume.hs
@@ -187,10 +187,10 @@ runVolumeWith opts mixerName controlName = do
getFormatDB :: VolumeOpts -> Maybe Integer -> Monitor String
getFormatDB _ Nothing = unavailable
- getFormatDB opts (Just d) = formatDb opts d
+ getFormatDB opts' (Just d) = formatDb opts' d
getFormatSwitch :: VolumeOpts -> Maybe Bool -> Monitor String
getFormatSwitch _ Nothing = unavailable
- getFormatSwitch opts (Just sw) = formatSwitch opts sw
+ getFormatSwitch opts' (Just sw) = formatSwitch opts' sw
unavailable = getConfigValue naString