@@ -449,11 +449,14 @@ projectNameH = projectName <$> ask
449449statusH :: DeploymentName -> AppM DeploymentStatus
450450statusH dName = do
451451 st <- ask
452− let pgPool = pool st
452+ let
453+ pgPool = pool st
454+ cmd = checkingCommand st
455+ args =
456+ [ "--namespace", coerce $ namespace st
457+ , "--name", coerce $ dName ]
453458 void $ selectDeployment pgPool dName AllDeployments
454− cmd <- checkingCommand <$> ask
455− let args = [unpack . coerce $ dName]
456− (ec, out, err) <- liftIO $ runCommand (unpack $ coerce cmd) args
459+ (ec, out, err) <- liftIO $ runCommand (unpack $ coerce cmd) (unpack <$> args)
457460 liftIO $ print out >> print err
458461 pure . DeploymentStatus $
459462 case ec of