@@ -389,7 +389,7 @@ updateH dName DeploymentUpdate { newTag = dTag, newEnvs = nEnvs } = do
389389 cmd = coerce $ updateCommand st
390390 failIfImageNotFound dTag
391391 void . liftIO . forkIO $ do
392− void $ updateDeploymentNameAndTag pgPool dName dTag
392+ void $ updateDeployment pgPool dName dTag envPairs
393393 log $ "call " <> unwords (cmd : args)
394394 (ec, out, err) <- runCommand (unpack cmd) (unpack <$> args)
395395 log $ "deployment updated, name: "
@@ -413,15 +413,17 @@ selectEnvPairs p dName = fmap (fmap fromOnly) $ withResource p $ \conn -> query
413413 "SELECT envs FROM deployments WHERE name = ?"
414414 (Only dName)
415415
416−updateDeploymentNameAndTag
416+updateDeployment
417417 :: PgPool
418418 -> DeploymentName
419419 -> DeploymentTag
420+ -> EnvPairs
420421 -> IO Int64
421−updateDeploymentNameAndTag p dName dTag = withResource p $ \conn -> execute
422+updateDeployment p dName dTag dEnvs =
423+ withResource p $ \conn -> execute
422424 conn
423− "UPDATE deployments SET tag = ?, updated_at = now() WHERE name = ?"
424− (dTag, dName)
425+ "UPDATE deployments SET tag = ?, envs = ?, updated_at = now() WHERE name = ?"
426+ (dTag, formatEnvPairs dEnvs, dName)
425427
426428infoH :: DeploymentName -> AppM [DeploymentInfo]
427429infoH dName = do