Fix findFilesInParentsP appending wrong directory

2016-09-17 18:09:48 +02:00 · 2016-09-17 18:09:48 +02:00 · b7cda9e9b9
commit b7cda9e9b9
parent 9074e6e31c
1 changed files with 1 additions and 1 deletions
--- a/Language/Haskell/GhcMod/PathsAndFiles.hs
+++ b/Language/Haskell/GhcMod/PathsAndFiles.hs
@ -142,7 +142,7 @@ findFileInParentsP p r dir = runMaybeT $
 findFilesInParentsP :: (FilePath -> Bool) -> FilePath
                   -> IO [IO [FilePath]]
 findFilesInParentsP p dir' = U.makeAbsolute' dir' >>= \dir -> return $
-    map (fmap (map (dir </>)) . getFilesP p) $ parents dir
+    map (\d -> (map (d </>)) <$> getFilesP p d) $ parents dir

 -- | @getFilesP p dir@. Find all __files__ satisfying @p@ in @.cabal@ in @dir@.
 getFilesP :: (FilePath -> Bool) -> DirPath -> IO [FileName]