(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))