Include only existent files (no dirs)

Author: jneira

src/Hie/Implicit/Cradle.hs

@@ -174,10 +174,12 @@ findFileUpwards p dir = do
 -- | Sees if any file in the directory matches the predicate
 findFile :: (FilePath -> Bool) -> FilePath -> IO [FilePath]
 findFile p dir = do
-  b <- doesDirectoryExist dir
+  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