ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix system: 'init' makes sure the target store directory exists.

Browse source 
* guix/scripts/system.scm (install): Before calling 'copy-closure', make
  sure directory (%store-prefix) under TARGET exists.
This commit is contained in:
Ludovic Courtès 2014-06-18 23:19:01 +02:00
parent dc34393569
commit eef4096c14
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/system.scm
View file

@ -100,9 +100,13 @@ (define to-copy
(if (string=? target "/") (if (string=? target "/")
(warning (_ "initializing the current root file system~%")) (warning (_ "initializing the current root file system~%"))
;; Copy items to the new store. (begin
(for-each (cut copy-closure store <> target #:log-port log-port) ;; Make sure the target store exists.
to-copy)) (mkdir-p (string-append target (%store-prefix)))
;; Copy items to the new store.
(for-each (cut copy-closure store <> target #:log-port log-port)
to-copy)))
;; Create a bunch of additional files. ;; Create a bunch of additional files.
(format log-port "populating '~a'...~%" target) (format log-port "populating '~a'...~%" target)