diff options
| author | Rob Whitaker <dev@robwhitaker.com> | 2022-03-29 14:00:41 -0400 |
|---|---|---|
| committer | Rob Whitaker <dev@robwhitaker.com> | 2022-03-29 14:00:41 -0400 |
| commit | 28e51ce251bb7ecf8d688c0bdfb701c94b1fa7e2 (patch) | |
| tree | 6d01a69af157148ccf75bd9648aacdb15564fbd7 | |
| parent | 2757086b03ee4b1ea32a80a8dc4246ef3258ca0b (diff) | |
| download | xmobar-28e51ce251bb7ecf8d688c0bdfb701c94b1fa7e2.tar.gz xmobar-28e51ce251bb7ecf8d688c0bdfb701c94b1fa7e2.tar.bz2 | |
Apply hlint suggestions to MultiCoreTemp
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs b/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs index 5bd9df3..abc9684 100644 --- a/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs +++ b/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs @@ -122,7 +122,7 @@ corePaths :: Maybe String -> IO [String] corePaths s = do ps <- case s of Just pth -> return [pth] _ -> hwmonPaths - cps <- concat <$> traverse (flip getMatchingPathsInDir corePathMatcher) ps + cps <- concat <$> traverse (`getMatchingPathsInDir` corePathMatcher) ps ls <- filterM doesFileExist cps cls <- filterM isLabelFromCore ls return $ map labelToCore cls |