includeDirectories takes care of ".".

This commit is contained in:
Kazu Yamamoto 2013-09-20 11:22:11 +09:00
parent f0e191dc98
commit 1212040e3b

View File

@ -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
----------------------------------------------------------------