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

system: Remove circular dependency between (gnu system) and (gnu system grub).

Browse source 
Followup to 087efec496.

* gnu/system.scm: (operating-system-bootcfg): Refer to (gnu system grub)
by module-ref.
This commit is contained in:
Danny Milosavljevic 2017-05-08 22:16:55 +02:00
parent c5196ac7ee
commit f000828575
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/system.scm
View file

@ -847,9 +847,11 @@ (define* (operating-system-bootcfg os #:optional (old-entries '()))
(uuid->string (file-system-device root-fs)) (uuid->string (file-system-device root-fs))
(file-system-device root-fs))) (file-system-device root-fs)))
(entry (operating-system-boot-parameters os system root-device))) (entry (operating-system-boot-parameters os system root-device)))
((@@ (gnu system grub) grub-configuration-file) (operating-system-bootloader os) ((module-ref (resolve-interface '(gnu system grub))
(list entry) 'grub-configuration-file)
#:old-entries old-entries))) (operating-system-bootloader os)
(list entry)
#:old-entries old-entries)))
(define (fs->boot-device fs) (define (fs->boot-device fs)
"Given FS, a <file-system> object, return a value suitable for use as the "Given FS, a <file-system> object, return a value suitable for use as the