diff options
| author | jao <jao@gnu.org> | 2011-08-08 16:32:40 -0700 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2011-08-08 16:32:40 -0700 |
| commit | 4a57c777bccbf169aa50411ecaed0af333ac6871 (patch) | |
| tree | 9a84f935e6e5494e7582f70e75cbd0e471ddfe2e /src/Plugins/Monitors/CoreTemp.hs | |
| parent | d533011ff9bbc082d445efb3dd1f4ad64a5e9c5f (diff) | |
| parent | 5d8ce11cd18f8c2458046af03a6909434954704a (diff) | |
| download | xmobar-4a57c777bccbf169aa50411ecaed0af333ac6871.tar.gz xmobar-4a57c777bccbf169aa50411ecaed0af333ac6871.tar.bz2 | |
Merge pull request #22 from nzeh/master
CoreTemp fix
Diffstat (limited to 'src/Plugins/Monitors/CoreTemp.hs')
| -rw-r--r-- | src/Plugins/Monitors/CoreTemp.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/Plugins/Monitors/CoreTemp.hs b/src/Plugins/Monitors/CoreTemp.hs index a24b284..f7b5c95 100644 --- a/src/Plugins/Monitors/CoreTemp.hs +++ b/src/Plugins/Monitors/CoreTemp.hs @@ -31,11 +31,9 @@ coreTempConfig = mkMConfig -- Function retrieves monitor string holding the core temperature -- (or temperatures) runCoreTemp :: [String] -> Monitor String -runCoreTemp _ = do - let dir = "/sys/bus/platform/devices" - file = "temp1_input" - pattern = "coretemp." - divisor = 1e3 :: Double - failureMessage = "CoreTemp: N/A" - checkedDataRetrieval failureMessage dir file pattern (/divisor) show +runCoreTemp _ = let path = ["/sys/bus/platform/devices/coretemp.", "/temp", "_input"] + lbl = Just ("_label", read . drop 5) + divisor = 1e3 :: Double + failureMessage = "CoreTemp: N/A" + in checkedDataRetrieval failureMessage path lbl (/divisor) show |