summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Plugins/Monitors')
-rw-r--r--src/Xmobar/Plugins/Monitors/CoreTemp.hs18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/Xmobar/Plugins/Monitors/CoreTemp.hs b/src/Xmobar/Plugins/Monitors/CoreTemp.hs
index 35378eb..e5c494e 100644
--- a/src/Xmobar/Plugins/Monitors/CoreTemp.hs
+++ b/src/Xmobar/Plugins/Monitors/CoreTemp.hs
@@ -37,15 +37,15 @@ coreTempNormalize = (/ 1000)
-- | Retrieves Monitor String holding the core temperatures.
runCoreTemp :: [String] -> Monitor String
runCoreTemp _ = do
- confDecDigits <- getConfigValue decDigits
- confNaString <- getConfigValue naString
- let coreLabel = Nothing
- coreTempShow = showDigits (max 0 confDecDigits)
- checkedDataRetrieval confNaString
- coreTempFilePaths
- coreLabel
- coreTempNormalize
- coreTempShow
+ confDecDigits <- getConfigValue decDigits
+ confNaString <- getConfigValue naString
+ let coreLabel = Nothing
+ coreTempShow = showDigits (max 0 confDecDigits)
+ checkedDataRetrieval confNaString
+ coreTempFilePaths
+ coreLabel
+ coreTempNormalize
+ coreTempShow
startCoreTemp :: [String] -> Int -> (String -> IO ()) -> IO ()
startCoreTemp a r cb = runM a coreTempConfig runCoreTemp r cb