From b7cda9e9b9515ac2cbf8a0cf0ffe7cd4ba52844b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Sat, 17 Sep 2016 18:09:48 +0200
Subject: [PATCH] Fix findFilesInParentsP appending wrong directory

---
 Language/Haskell/GhcMod/PathsAndFiles.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Language/Haskell/GhcMod/PathsAndFiles.hs b/Language/Haskell/GhcMod/PathsAndFiles.hs
index b024eeb..c254945 100644
--- 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]