fix build in clean tree

removeDirectoryRecursive fails if the directory DNE.

diff --git a/Build/Standalone.hs b/Build/Standalone.hs
index f8c43242c2b9e1740485bde6f56473a10bfcc0d8..bc2a06208f5212e3f9701df0da25bfceb6955b0a 100644 (file)
--- a/Build/Standalone.hs
+++ b/Build/Standalone.hs
@@ -155,12 +155,14 @@ installLocales topdir = cp "/usr/share/i18n" (topdir </> "i18n")
 installSkel :: FilePath -> FilePath -> IO ()
 #ifdef darwin_HOST_OS
 installSkel topdir basedir = do
-       removeDirectoryRecursive basedir
+       whenM (doesDirectoryExist basedir) $
+               removeDirectoryRecursive basedir
        unlessM (boolSystem "cp" [Param "-R", File "standalone/osx/git-annex.app", File basedir]) $
                error "cp failed"
 #else
 installSkel topdir _basedir = do
-       removeDirectoryRecursive topdir
+       whenM (doesDirectoryExist topdir) $
+               removeDirectoryRecursive topdir
        unlessM (boolSystem "cp" [Param "-R", File "standalone/linux/skel", File topdir]) $
                error "cp failed"
 #endif