diff options
| author | Felix Springer <felixspringer149@gmail.com> | 2019-07-10 19:04:30 +0200 |
|---|---|---|
| committer | Felix Springer <felixspringer149@gmail.com> | 2019-07-10 19:04:30 +0200 |
| commit | f0ff12bc2d9e16a93f8fa9325fc1bd6d44d16e0b (patch) | |
| tree | ed49b71712ede39a1a5cd2d4c16b1cd06d777b2b | |
| parent | aa657511d97356fdd6339da7a199d2a425c8c13b (diff) | |
| download | xmobar-f0ff12bc2d9e16a93f8fa9325fc1bd6d44d16e0b.tar.gz xmobar-f0ff12bc2d9e16a93f8fa9325fc1bd6d44d16e0b.tar.bz2 | |
properly indented runCoreTemp
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/CoreTemp.hs | 18 |
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 |