-- available replacements

-- | Retrieves thermal information. Argument is name of thermal directory in
-- \/proc\/acpi\/thermal_zone. Returns the monitor string parsed according to
-- template (either default or user specified).
runThermal :: [String] -> Monitor String
runThermal args = do
    let zone = head args
        file = "/proc/acpi/thermal_zone/" ++ zone ++ "/temperature"
    exists <- io $ fileExist file
    if exists
        then do number <- io $ liftM ((read :: String -> Int) . stringParser (1, 0)) (B.readFile file)
                thermal <- showWithColors show number
                parseTemplate [  thermal ]
        else return $ "Thermal (" ++ zone ++ "): N/A"
runThermal :: [String] -> Monitor String
runThermal args = do
    let zone = head args
        file = "/proc/acpi/thermal_zone/" ++ zone ++ "/temperature"
    exists <- io $ fileExist file
    if exists
        then do number <- io $ liftM ((read :: String -> Int) . stringParser (1, 0)) (B.readFile file)
                thermal <- showWithColors show number
                parseTemplate [  thermal ]
        else return $ "Thermal (" ++ zone ++ "): N/A"
runThermal args = do
    let zone = head args
        file = "/proc/acpi/thermal_zone/" ++ zone ++ "/temperature"
    exists <- io $ fileExist file
    if exists
        then do number <- io $ liftM ((read :: String -> Int) . stringParser (1, 0)) (B.readFile file)
                thermal <- showWithColors show number
                parseTemplate [  thermal ]
        else return $ "Thermal (" ++ zone ++ "): N/A"