mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

create missing directory

Browse source
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
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Build/Standalone.hs
View file

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