From beb44d60db84430915c1a10e0ac8d4d714dd3cef Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Thu, 21 Jan 2010 13:34:51 +0100 Subject: CoreTemps: revert to non-rounding by default Ignore-this: b8e96bb91956ea8235c7cae5dba4f4b1 We can control now whether to print decimals using -M darcs-hash:20100121123451-40885-4e2f46ebc0ee72a521a8bea1a10e33d8019e2b65.gz --- Plugins/Monitors/CoreTemp.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Plugins') diff --git a/Plugins/Monitors/CoreTemp.hs b/Plugins/Monitors/CoreTemp.hs index 1db6a28..66ac637 100644 --- a/Plugins/Monitors/CoreTemp.hs +++ b/Plugins/Monitors/CoreTemp.hs @@ -35,7 +35,7 @@ runCoreTemp _ = do let dir = "/sys/bus/platform/devices" file = "temp1_input" pattern = "coretemp." - divisor = (round . (/1000.0)) :: Double -> Integer + divisor = 1e3 :: Double failureMessage = "CoreTemp: N/A" - checkedDataRetrieval failureMessage dir file pattern divisor + checkedDataRetrieval failureMessage dir file pattern (/divisor) -- cgit v1.2.3