feat: Add exec-check-success

Author: tomasol

activity/fly-http/impl/src/machine.rs

@@ -391,6 +391,26 @@ impl Guest for Component {
         })()
         .map_err(|err| err.to_string())
     }
+
+    fn exec_check_success(
+        app_name: String,
+        machine_id: String,
+        command: Vec<String>,
+    ) -> Result<ExecResponse, String> {
+        (|| {
+            let app_name = AppName::new(app_name)?;
+            let machine_id = MachineId::new(machine_id)?;
+            block_on(async {
+                let resp = exec(app_name, machine_id, command).await?;
+                if resp.exit_code == Some(0) {
+                    Ok(resp)
+                } else {
+                    bail!("non-successful exit status - {resp:?}")
+                }
+            })
+        })()
+        .map_err(|err| err.to_string())
+    }
 }
 
 #[cfg(test)]

activity/fly-http/wit/obelisk-flyio_activity-fly-http@1.0.0-beta/fly.wit

@@ -215,6 +215,8 @@ interface machines {
     delete: func(app-name: string, machine-id: machine-id, force: bool) -> result<_, string>;
 
     exec: func(app-name: string, machine-id: machine-id, command: list<string>) -> result<exec-response, string>;
+
+    exec-check-success: func(app-name: string, machine-id: machine-id, command: list<string>) -> result<exec-response, string>;
 }
 
 /// [App Secrets API](https://docs.machines.dev/#tag/secrets/get/apps/{app_name}/secrets)