hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

includeDirectories takes care of ".".

Browse Source
This commit is contained in:
Kazu Yamamoto 2013-09-20 11:22:11 +09:00
parent f0e191dc98
commit 1212040e3b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/CabalApi.hs
View File

@ -71,7 +71,9 @@ cabalBuildDirs = ["dist/build"]
includeDirectories :: FilePath -> FilePath -> [FilePath] -> [FilePath] includeDirectories :: FilePath -> FilePath -> [FilePath] -> [FilePath]
includeDirectories cdir wdir dirs = uniqueAndSort (extdirs ++ [cdir,wdir]) includeDirectories cdir wdir dirs = uniqueAndSort (extdirs ++ [cdir,wdir])
where where
extdirs = map (cdir </>) $ dirs ++ cabalBuildDirs extdirs = map expand $ dirs ++ cabalBuildDirs
expand "." = cdir
expand subdir = cdir </> subdir
---------------------------------------------------------------- ----------------------------------------------------------------