clean up
This commit is contained in:
parent
18084d997c
commit
bd106e22f1
1 changed files with 1 additions and 3 deletions
|
@ -106,9 +106,7 @@ installFile top f = do
|
||||||
createDirectoryIfMissing True destdir
|
createDirectoryIfMissing True destdir
|
||||||
void $ copyFileExternal f destdir
|
void $ copyFileExternal f destdir
|
||||||
where
|
where
|
||||||
-- Note: This is an absolute, not a relative, directory.
|
destdir = inTop top $ parentDir f
|
||||||
dir = parentDir f
|
|
||||||
destdir = inTop top dir
|
|
||||||
|
|
||||||
-- Note that f is not relative, so cannot use </>
|
-- Note that f is not relative, so cannot use </>
|
||||||
inTop :: FilePath -> FilePath -> FilePath
|
inTop :: FilePath -> FilePath -> FilePath
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue