From 28e51ce251bb7ecf8d688c0bdfb701c94b1fa7e2 Mon Sep 17 00:00:00 2001 From: Rob Whitaker Date: Tue, 29 Mar 2022 14:00:41 -0400 Subject: Apply hlint suggestions to MultiCoreTemp --- src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3