12 lines
315 B
Scheme
12 lines
315 B
Scheme
(use-modules (gnu system)
|
|
(guix profiles)
|
|
(oms systems))
|
|
|
|
(define (operating-system->manifest-entry os)
|
|
(manifest-entry
|
|
(name (string-append (operating-system-host-name os) "-system"))
|
|
(version "0")
|
|
(item os)))
|
|
|
|
(manifest (map operating-system->manifest-entry %oms-systems))
|