dan
/
liminix
1
0
Fork 5
Code Issues 3 Pull Requests 1 Projects Releases Wiki Activity

run-liminix-vm: don't reverse order of --flags params

pull/2/head
Daniel Barlow 2023-12-26 21:59:00 +00:00
parent f020d5b25d
commit 6469408d5f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/run-liminix-vm/run-liminix-vm.fnl
View File

@ -45,7 +45,7 @@
["--wan" spec & rest] (assoc (parse-args rest) :wan spec) ["--wan" spec & rest] (assoc (parse-args rest) :wan spec)
["--command-line" cmd & rest] (assoc (parse-args rest) :command-line cmd) ["--command-line" cmd & rest] (assoc (parse-args rest) :command-line cmd)
["--flag" flag & rest] (let [o (parse-args rest)] ["--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] [kernel rootfsimg]
{ :flags [] :kernel kernel :rootfs (pad-file rootfsimg (* 16 1024)) } { :flags [] :kernel kernel :rootfs (pad-file rootfsimg (* 16 1024)) }
)) ))