From 6469408d5fd5ac39d3af8491e177f34702c3e407 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Tue, 26 Dec 2023 21:59:00 +0000 Subject: [PATCH] run-liminix-vm: don't reverse order of --flags params --- pkgs/run-liminix-vm/run-liminix-vm.fnl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/run-liminix-vm/run-liminix-vm.fnl b/pkgs/run-liminix-vm/run-liminix-vm.fnl index f7e38b9..bbefd55 100644 --- a/pkgs/run-liminix-vm/run-liminix-vm.fnl +++ b/pkgs/run-liminix-vm/run-liminix-vm.fnl @@ -45,7 +45,7 @@ ["--wan" spec & rest] (assoc (parse-args rest) :wan spec) ["--command-line" cmd & rest] (assoc (parse-args rest) :command-line cmd) ["--flag" flag & rest] (let [o (parse-args rest)] - (assoc o :flags (doto o.flags (table.insert flag)))) + (assoc o :flags (doto o.flags (table.insert 1 flag)))) [kernel rootfsimg] { :flags [] :kernel kernel :rootfs (pad-file rootfsimg (* 16 1024)) } ))