summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Thermal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/Monitors/Thermal.hs')
-rw-r--r--Plugins/Monitors/Thermal.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Plugins/Monitors/Thermal.hs b/Plugins/Monitors/Thermal.hs
index 2794a60..4814aa5 100644
--- a/Plugins/Monitors/Thermal.hs
+++ b/Plugins/Monitors/Thermal.hs
@@ -24,11 +24,12 @@ thermalConfig = mkMConfig
["temp"] -- available replacements
runThermal :: [String] -> Monitor String
-runThermal _ = do
- let file = "/proc/acpi/thermal_zone/THM/temperature"
+runThermal args = do
+ let zone = head args
+ file = "/proc/acpi/thermal_zone/" ++ zone ++ "/temperature"
exists <- io $ fileExist file
case exists of
- False -> return "Thermal: N/A"
+ False -> return $ "Thermal (" ++ zone ++ "): N/A"
True -> do number <- io $ B.readFile file
>>= return . (read :: String -> Int)
. stringParser (1, 0)