oops I the filename

This commit is contained in:
Joey Hess 2019-11-14 16:34:13 -04:00
parent f037ad92ec
commit 5cc8cfe57b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -69,7 +69,7 @@ installGitLibs topdir = do
if takeFileName linktarget == linktarget
then cp f destf
else do
let linktarget' = progDir topdir
let linktarget' = progDir topdir </> takeFileName linktarget
unlessM (doesFileExist linktarget') $ do
createDirectoryIfMissing True (takeDirectory linktarget')
L.readFile f >>= L.writeFile linktarget'