From b3e505abf490389cd5188fd300808c46242de778 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Wed, 13 Sep 2023 17:50:40 +0100
Subject: [PATCH] anoia.system print command if it failed
---
pkgs/anoia/init.fnl | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/pkgs/anoia/init.fnl b/pkgs/anoia/init.fnl
index e9d2ca9e..935ab028 100644
--- a/pkgs/anoia/init.fnl
+++ b/pkgs/anoia/init.fnl
@@ -14,7 +14,10 @@
f (do (f:close) true)
_ false))
-(fn system [s] (assert (os.execute s)))
+(fn system [s]
+ (match (os.execute s)
+ res res
+ (nil err) (error (.. "Error executing \"" s "\" (" err ")"))))
(fn hash [str]
(accumulate [h 5381