Include only existent files (no dirs)

Author: jneira

src/Hie/Implicit/Cradle.hs

@@ -177,7 +177,9 @@ findFile p dir = do
   b <- doesDirectoryExist dir
   if b then getFiles else pure []
   where
-    getFiles = filter p <$> getDirectoryContents dir
+    getFiles = do
+      files <- filter p <$> getDirectoryContents dir
+      filterM doesPredFileExist files
     doesPredFileExist file = doesFileExist $ dir </> file
 
 biosWorkDir :: FilePath -> MaybeT IO FilePath