std: Make std/sh-out die if command errors

yaml · Jan 21, 2025 · 12eb5e0 · 12eb5e0
1 parent 6a1924d
commit 12eb5e0
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/core/src/ys/std.clj b/core/src/ys/std.clj
@@ -853,8 +853,11 @@
   (apply process/shell (process-opts xs)))
 
 (defn sh-out [& xs]
-  (str/trim-newline
-    (:out (apply sh xs))))
+  (let [ret (apply sh xs)]
+    (when (not= 0 (:exit ret))
+      (util/die (:err ret)))
+    (str/trim-newline
+      (:out ret))))
 
 
 ;;------------------------------------------------------------------------------