diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-10-27 16:20:25 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-10-27 16:20:25 +0100 |
| commit | 3d2af8a47332235d6556d2d2a40f7392269cf0b0 (patch) | |
| tree | 75f75e4dd2bbae0106b77e333213ee6c9b6d4754 /src/Plugins/Monitors/CoreTemp.hs | |
| parent | 7e89ff8e2007e057a0b00a5a9c1fd953c565db25 (diff) | |
| download | xmobar-3d2af8a47332235d6556d2d2a40f7392269cf0b0.tar.gz xmobar-3d2af8a47332235d6556d2d2a40f7392269cf0b0.tar.bz2 | |
New N/A string monitor option (cf. #119)
Diffstat (limited to 'src/Plugins/Monitors/CoreTemp.hs')
| -rw-r--r-- | src/Plugins/Monitors/CoreTemp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/CoreTemp.hs b/src/Plugins/Monitors/CoreTemp.hs index c6f98da..5109070 100644 --- a/src/Plugins/Monitors/CoreTemp.hs +++ b/src/Plugins/Monitors/CoreTemp.hs @@ -36,9 +36,9 @@ coreTempConfig = mkMConfig runCoreTemp :: [String] -> Monitor String runCoreTemp _ = do dn <- getConfigValue decDigits + failureMessage <- getConfigValue naString let path = ["/sys/bus/platform/devices/coretemp.", "/temp", "_input"] lbl = Just ("_label", read . (dropWhile (not . isDigit))) divisor = 1e3 :: Double - failureMessage = "CoreTemp: N/A" show' = showDigits (max 0 dn) checkedDataRetrieval failureMessage path lbl (/divisor) show' |