dan/liminix
1
0
Fork 5
Code

skip symlink handing unless linkname was provided

Browse Source
This commit is contained in:
Daniel Barlow 2024-05-22 19:09:50 +01:00
parent 898958fa10
commit af9200a136
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/uevent-watch/watch.fnl
View File

@ -17,13 +17,13 @@
(var up :unknown)
(fn start-service [devname linkname service]
(match (symlink (.. "/dev/" devname ) linkname)
(match (if linkname (symlink (.. "/dev/" devname) linkname) true)
ok (pcall system (%% "s6-rc -b -u change %q" service))
(nil err) false))
(fn stop-service [linkname service]
(match (pcall system (%% "s6-rc -b -d change %q" linkname service))
ok (os.remove linkname)
(match (pcall system (%% "s6-rc -b -d change %q" service))
ok (if linkname (os.remove linkname) true)
(nil err) false))
(fn toggle-service [devname linkname service wanted?]
@ -45,7 +45,7 @@
(set up :unknown)
(let [parameters
(assert (parse-args args) (.. "can't parse args: " (table.concat args " ")))]
(mktree (dirname parameters.linkname))
(when parameters.linkname (mktree (dirname parameters.linkname)))
(var finished? false)
(print "registering for events" (fh:write parameters.matches))