diff options
Diffstat (limited to 'src/Plugins/Monitors/CpuFreq.hs')
| -rw-r--r-- | src/Plugins/Monitors/CpuFreq.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Plugins/Monitors/CpuFreq.hs b/src/Plugins/Monitors/CpuFreq.hs index 6209ef3..8334d1a 100644 --- a/src/Plugins/Monitors/CpuFreq.hs +++ b/src/Plugins/Monitors/CpuFreq.hs @@ -30,10 +30,10 @@ cpuFreqConfig = mkMConfig -- | -- Function retrieves monitor string holding the cpu frequency (or frequencies) runCpuFreq :: [String] -> Monitor String -runCpuFreq _ = +runCpuFreq _ = do let path = ["/sys/devices/system/cpu/cpu", "/cpufreq/scaling_cur_freq"] divisor = 1e6 :: Double - failureMessage = "CpuFreq: N/A" fmt x | x < 1 = (show (round (x * 1000) :: Integer)) ++ "MHz" | otherwise = (show x) ++ "GHz" - in checkedDataRetrieval failureMessage path Nothing (/divisor) fmt + failureMessage <- getConfigValue naString + checkedDataRetrieval failureMessage path Nothing (/divisor) fmt |