command: Create deploy dir if missing

obsidiansystems · Mar 12, 2020 · 1742e0e · 1742e0e
1 parent 3047dcb
commit 1742e0e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/command/src/Obelisk/Command/Deploy.hs b/lib/command/src/Obelisk/Command/Deploy.hs
@@ -52,6 +52,7 @@ deployInit thunkPtr deployDir sshKeyPath hostnames route adminEmail enableHttps
     localKey <- liftIO (doesFileExist sshKeyPath) >>= \case
       False -> failWith $ T.pack $ "ob deploy init: file does not exist: " <> sshKeyPath
       True -> pure $ deployDir </> "ssh_key"
+    createDirectoryIfMissing True deployDir
     callProcessAndLogOutput (Notice, Error) $
       proc cp [sshKeyPath, localKey]
     liftIO $ setFileMode localKey $ ownerReadMode .|. ownerWriteMode