create missing directory

This commit is contained in:
Joey Hess 2020-08-05 11:37:03 -04:00
parent 283d2f85d1
commit ec4e742066
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -157,12 +157,14 @@ installSkel :: FilePath -> FilePath -> IO ()
installSkel topdir basedir = do
whenM (doesDirectoryExist basedir) $
removeDirectoryRecursive basedir
createDirectoryIfMissing True (takeDirectory basedir)
unlessM (boolSystem "cp" [Param "-R", File "standalone/osx/git-annex.app", File basedir]) $
error "cp failed"
#else
installSkel topdir _basedir = do
whenM (doesDirectoryExist topdir) $
removeDirectoryRecursive topdir
createDirectoryIfMissing True (takeDirectory topdir)
unlessM (boolSystem "cp" [Param "-R", File "standalone/linux/skel", File topdir]) $
error "cp failed"
#endif