Fix missing makeAbsolute

This commit is contained in:
Daniel Gröber
2015-09-08 05:20:26 +02:00
parent f06511bff1
commit d400c8f389
2 changed files with 17 additions and 6 deletions

View File

@@ -171,7 +171,7 @@ takeExtension' p =
-- it's parent directories.
findFileInParentsP :: (FilePath -> Bool) -> FilePath
-> IO [(DirPath, [FileName])]
findFileInParentsP p dir' = makeAbsolute dir' >>= \dir ->
findFileInParentsP p dir' = U.makeAbsolute' dir' >>= \dir ->
getFilesP p `zipMapM` parents dir
-- | @getFilesP p dir@. Find all __files__ satisfying @p@ in @.cabal@ in @dir@.