diff options
| author | Daniel Schüssler <933504+DanielSchuessler@users.noreply.github.com> | 2018-10-06 20:37:31 +0200 |
|---|---|---|
| committer | Daniel Schüssler <933504+DanielSchuessler@users.noreply.github.com> | 2018-10-06 20:37:31 +0200 |
| commit | c2da066eceadca4bb6503c975b81a90b27d0e7e3 (patch) | |
| tree | 795ebaaa42c092585fbf7d68f29ba925b05fd22c | |
| parent | 4b81ed340f586fbc99d7888f8815539dd8e9f517 (diff) | |
| download | xmobar-c2da066eceadca4bb6503c975b81a90b27d0e7e3.tar.gz xmobar-c2da066eceadca4bb6503c975b81a90b27d0e7e3.tar.bz2 | |
Fix build warnings
| -rw-r--r-- | src/Plugins/Monitors/Volume.hs | 4 |
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 |