From 53d8d8f0c1b05365a6844b0fe665cbaadb599a98 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 15 Jan 2011 00:18:19 +0100 Subject: Nit --- src/Plugins/Monitors/Volume.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Plugins/Monitors/Volume.hs b/src/Plugins/Monitors/Volume.hs index 72a9b0e..c0f97a6 100644 --- a/src/Plugins/Monitors/Volume.hs +++ b/src/Plugins/Monitors/Volume.hs @@ -20,6 +20,10 @@ import Plugins.Monitors.Common import Sound.ALSA.Mixer import System.Console.GetOpt +volumeConfig :: IO MConfig +volumeConfig = mkMConfig "Vol: % " ["volume","dB","status"] + + data VolumeOpts = VolumeOpts { onString :: String , offString :: String @@ -61,10 +65,6 @@ percent v' lo' hi' = (v - lo) / (hi - lo) lo = fromIntegral lo' hi = fromIntegral hi' -volumeConfig :: IO MConfig -volumeConfig = mkMConfig "Vol: % " - ["volume","dB","status"] - formatVol :: Integer -> Integer -> Integer -> Monitor String formatVol v lo hi = showPercentWithColors $ percent v lo hi -- cgit v1.2.3