@@ -48,6 +48,7 @@ deployInit
48 -> Bool -- ^ enable https
48 -> Bool -- ^ enable https
50deployInit thunkPtr deployDir sshKeyPath hostnames route adminEmail enableHttps = do
50deployInit thunkPtr deployDir sshKeyPath hostnames route adminEmail enableHttps = do
51+ liftIO $ createDirectoryIfMissing True deployDir
51 localKey <- withSpinner ("Preparing " <> T.pack deployDir) $ do
52 localKey <- withSpinner ("Preparing " <> T.pack deployDir) $ do
52 localKey <- liftIO (doesFileExist sshKeyPath) >>= \case
53 localKey <- liftIO (doesFileExist sshKeyPath) >>= \case
53 False -> failWith $ T.pack $ "ob deploy init: file does not exist: " <> sshKeyPath
54 False -> failWith $ T.pack $ "ob deploy init: file does not exist: " <> sshKeyPath