liminix

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE
commit b3e505abf490389cd5188fd300808c46242de778
parent 92e107d77c34f25856445885e45651a8dd58b364
Author: Daniel Barlow <dan@telent.net>
Date:   Wed, 13 Sep 2023 17:50:40 +0100

anoia.system print command if it failed

Diffstat:

Mpkgs/anoia/init.fnl | 5++++-


1 file changed, 4 insertions(+), 1 deletion(-)

diff --git 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