Directories hlint: move filter right of bind

juhp · Dec 17, 2023 · 7d62878 · 7d62878
1 parent 3ecdeb3
commit 7d62878
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Directories.hs b/src/Directories.hs
@@ -83,7 +83,7 @@ listPlatforms msystem = do
 
 listCurrentDirectory :: IO [FilePath]
 listCurrentDirectory =
-  filter (\d -> head d /= '.') <$> listDirectory "." >>= filterM doesDirectoryExist
+  listDirectory "." >>= filterM doesDirectoryExist . filter (\d -> head d /= '.')
 
 #if !MIN_VERSION_simple_cmd(0,2,0)
 warning :: String -> IO ()