create missing directory
This commit is contained in:
parent
283d2f85d1
commit
ec4e742066
1 changed files with 2 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue