includeDirectories takes care of ".".

2013-09-20 11:22:11 +09:00 · 2013-09-20 11:22:11 +09:00 · 1212040e3b
parent f0e191dc98
commit 1212040e3b
1 changed files with 3 additions and 1 deletions
--- a/Language/Haskell/GhcMod/CabalApi.hs
+++ b/Language/Haskell/GhcMod/CabalApi.hs
@ -71,7 +71,9 @@ cabalBuildDirs = ["dist/build"]
 includeDirectories :: FilePath -> FilePath -> [FilePath] -> [FilePath]
 includeDirectories cdir wdir dirs = uniqueAndSort (extdirs ++ [cdir,wdir])
  where
-    extdirs = map (cdir </>) $ dirs ++ cabalBuildDirs
+    extdirs = map expand $ dirs ++ cabalBuildDirs
+    expand "."    = cdir
+    expand subdir = cdir </> subdir

 ----------------------------------------------------------------