This commit is contained in:
Joey Hess 2013-12-24 17:42:48 -04:00
parent 18084d997c
commit bd106e22f1

View file

@ -106,9 +106,7 @@ installFile top f = do
createDirectoryIfMissing True destdir
void $ copyFileExternal f destdir
where
-- Note: This is an absolute, not a relative, directory.
dir = parentDir f
destdir = inTop top dir
destdir = inTop top $ parentDir f
-- Note that f is not relative, so cannot use </>
inTop :: FilePath -> FilePath -> FilePath