command: Create deploy dir if missing
commita7c48c02d863ecf16f22e92206e404fbaff006ba
authorElliot Cameron <eacameron@gmail.com>
dateThu 12 Mar 2020, 14:23 (7 years ago)
parent3d1d3ff
lib/command/src/Obelisk/Command/Deploy.hs+1
@@ -48,6 +48,7 @@ deployInit
4848 -> Bool -- ^ enable https
4949 -> m ()
5050deployInit thunkPtr deployDir sshKeyPath hostnames route adminEmail enableHttps = do
51+ liftIO $ createDirectoryIfMissing True deployDir
5152 localKey <- withSpinner ("Preparing " <> T.pack deployDir) $ do
5253 localKey <- liftIO (doesFileExist sshKeyPath) >>= \case
5354 False -> failWith $ T.pack $ "ob deploy init: file does not exist: " <> sshKeyPath