summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar
diff options
context:
space:
mode:
authorFelix Springer <felixspringer149@gmail.com>2019-07-10 19:04:30 +0200
committerFelix Springer <felixspringer149@gmail.com>2019-07-10 19:04:30 +0200
commitf0ff12bc2d9e16a93f8fa9325fc1bd6d44d16e0b (patch)
treeed49b71712ede39a1a5cd2d4c16b1cd06d777b2b /src/Xmobar
parentaa657511d97356fdd6339da7a199d2a425c8c13b (diff)
downloadxmobar-f0ff12bc2d9e16a93f8fa9325fc1bd6d44d16e0b.tar.gz
xmobar-f0ff12bc2d9e16a93f8fa9325fc1bd6d44d16e0b.tar.bz2
properly indented runCoreTemp
Diffstat (limited to 'src/Xmobar')
-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