mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 11:29:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: images: Add networking support to pine64 image.

Browse source 
* gnu/system/images/pine64.scm (pine64-barebones-os) [services]: Add
dhcp-client-service-type and ntp-service-type to the list of services.
[packages]: Add nss-certs to the list of packages.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Gabriel Wicki 2022-11-23 10:41:56 +01:00 • committed by 宋文武
parent 8d6feb4b10
commit ec9326f021
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/system/images/pine64.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2022 Gabriel Wicki <gabriel@erlikon.ch>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -21,9 +22,11 @@
#:use-module (gnu bootloader u-boot) #:use-module (gnu bootloader u-boot)
#:use-module (gnu image) #:use-module (gnu image)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages certs)
#:use-module (guix platforms arm) #:use-module (guix platforms arm)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services base) #:use-module (gnu services base)
#:use-module (gnu services networking)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu system file-systems) #:use-module (gnu system file-systems)
#:use-module (gnu system image) #:use-module (gnu system image)
@ -47,13 +50,17 @@
(mount-point "/") (mount-point "/")
(type "ext4")) (type "ext4"))
%base-file-systems)) %base-file-systems))
(services (cons (service agetty-service-type (services (cons*
(agetty-configuration (service agetty-service-type
(extra-options '("-L")) ; no carrier detect (agetty-configuration
(baud-rate "115200") (extra-options '("-L")) ; no carrier detect
(term "vt100") (baud-rate "115200")
(tty "ttyS0"))) (term "vt100")
%base-services)))) (tty "ttyS0")))
(service dhcp-client-service-type)
(service ntp-service-type)
%base-services))
(packages (cons nss-certs %base-packages))))
(define pine64-image-type (define pine64-image-type
(image-type (image-type