me
/
guix-packages
1
0
Fork 0
Code

Add directory

master
Sudoer777's Guix Server 2024-05-27 23:52:47 -05:00
parent ebcb56ab69
commit ec156ae74e
No known key found for this signature in database
GPG Key ID: 030A38A3A5035E37
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
local-pkgs-gnu/packages/actual-server-installer.scm
View File

@ -74,6 +74,9 @@
(if (< (length args) 1) (if (< (length args) 1)
(error "Usage: script.scm <directory>")) (error "Usage: script.scm <directory>"))
(let ((directory (car args))) (let ((directory (car args)))
(mkdir-p directory)
(run-and-display-command (string-append "guix shell --container --network --pure --no-cwd --emulate-fhs --share=" directory "=/actual-server --user=build actual-server-installer -- bash -c 'guile $GUIX_ENVIRONMENT/lib/actual-server-installer/build.scm'")) (run-and-display-command (string-append "guix shell --container --network --pure --no-cwd --emulate-fhs --share=" directory "=/actual-server --user=build actual-server-installer -- bash -c 'guile $GUIX_ENVIRONMENT/lib/actual-server-installer/build.scm'"))
(run-and-display-command (string-append "cd " directory)) (run-and-display-command (string-append "cd " directory))