Remove definition of function that can be replaced by (map specification->package ...)
This commit is contained in:
parent
6cd3f0b699
commit
e71bee5980
13
config.scm
13
config.scm
|
@ -1,18 +1,12 @@
|
|||
(use-modules
|
||||
(gnu)
|
||||
(gnu packages)
|
||||
(gnu packages shells)
|
||||
(guix profiles)
|
||||
(guix packages)
|
||||
(srfi srfi-1))
|
||||
(use-service-modules desktop docker networking ssh xorg)
|
||||
|
||||
(define (manifest->packages manifest)
|
||||
"Return the list of packages in MANIFEST."
|
||||
(filter-map (lambda (entry)
|
||||
(let ((item (manifest-entry-item entry)))
|
||||
(if (package? item) item #f)))
|
||||
(manifest-entries manifest)))
|
||||
|
||||
(operating-system
|
||||
(locale "en_CA.utf8")
|
||||
(timezone "America/Toronto")
|
||||
|
@ -53,8 +47,7 @@
|
|||
|
||||
(packages
|
||||
(append
|
||||
(manifest->packages
|
||||
(specifications->manifest
|
||||
(map specification->package
|
||||
'("docker"
|
||||
"docker-cli"
|
||||
"docker-compose"
|
||||
|
@ -70,7 +63,7 @@
|
|||
"tmux"
|
||||
"xterm"
|
||||
"xrandr"
|
||||
"xsetroot")))
|
||||
"xsetroot"))
|
||||
%base-packages))
|
||||
|
||||
(services (cons* (service docker-service-type)
|
||||
|
|
Reference in New Issue