@@ -12,7 +12,7 @@ import Obelisk.Command.Thunk
1212
1313deployInit :: ThunkPtr -> FilePath -> FilePath -> FilePath -> [String] -> IO ()
1414deployInit thunkPtr configDir deployDir sshKeyPath hostnames = do
15− createDirectory deployDir
15+ createDirectoryIfMissing True deployDir
1616 hasConfigDir <- doesDirectoryExist configDir
1717 when hasConfigDir $ do
1818 callProcess "cp"
@@ -27,4 +27,5 @@ deployInit thunkPtr configDir deployDir sshKeyPath hostnames = do
2727 createSymbolicLink target (deployDir </> "ssh_key")
2828 createThunk (deployDir </> "src") thunkPtr
2929 writeFile (deployDir </> "backend_hosts") $ unlines hostnames
30+ initGit deployDir
3031