From 14b05b90ee5ba5e1baa4c5333341431b306e4e95 Mon Sep 17 00:00:00 2001
From: "Jose A. Ortega Ruiz" <jao@gnu.org>
Date: Tue, 19 Jan 2010 20:19:55 +0100
Subject: CoreTemp: return temperatures as integer values

Ignore-this: ce917bed99a2d812238d4581fbbff3d6

darcs-hash:20100119191955-40885-21098d264f191a572a0e30f83296d26405d38cba.gz
---
 Plugins/Monitors/CoreTemp.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Plugins/Monitors/CoreTemp.hs')

diff --git a/Plugins/Monitors/CoreTemp.hs b/Plugins/Monitors/CoreTemp.hs
index f014335..2bb220c 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 = 1e3 :: Double
+        divisor = (floor . (/1000.0)) :: Double -> Integer
         failureMessage = "CoreTemp: N/A"
     checkedDataRetrieval failureMessage dir file pattern divisor
 
-- 
cgit v1.2.3