From 5a8064c2a5dd10fb1a6c6c2bf9fa560402f886ac Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 8 Dec 2010 20:09:33 +0100 Subject: CpuFreq: limit GHz values to one decimal digit Thanks to Petr Rockai --- Plugins/Monitors/CpuFreq.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Plugins/Monitors/CpuFreq.hs') diff --git a/Plugins/Monitors/CpuFreq.hs b/Plugins/Monitors/CpuFreq.hs index fd1da4c..4f01922 100644 --- a/Plugins/Monitors/CpuFreq.hs +++ b/Plugins/Monitors/CpuFreq.hs @@ -28,7 +28,8 @@ cpuFreqConfig = mkMConfig -- replacements -- | --- Function retrieves monitor string holding the cpu frequency (or frequencies) +-- Function retrieves monitor string holding the cpu frequency (or +-- frequencies) runCpuFreq :: [String] -> Monitor String runCpuFreq _ = do let dir = "/sys/devices/system/cpu" @@ -36,7 +37,7 @@ runCpuFreq _ = do pattern = "cpu" divisor = 1e6 :: Double failureMessage = "CpuFreq: N/A" - fmt x | x < 1 = (show (round (x * 1000) :: Integer)) ++ "MHz" - | otherwise = (show x) ++ "GHz" + fmt x | x < 1 = show (round (x * 1000) :: Integer) ++ "MHz" + | otherwise = showDigits 1 x ++ "GHz" checkedDataRetrieval failureMessage dir file pattern (/divisor) fmt -- cgit v1.2.3