[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/36: HACK services: hurd: Add dummy syslog.
From: |
guix-commits |
Subject: |
06/36: HACK services: hurd: Add dummy syslog. |
Date: |
Fri, 1 May 2020 11:53:56 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 1c90881859d3bd9b30b552e2b5d25f060a2a4e7d
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Mon Apr 13 22:44:45 2020 +0200
HACK services: hurd: Add dummy syslog.
TODO Remove/make it work with the Hurd. This dummy is currently used to
satisfy
guix build: error: service 'XXX' requires 'syslog', which is not
provided by any service
and then filtered-out.
* gnu/services/hurd.scm (<syslog-configuration>): New variable.
(syslog-shepherd-service): New function.
(hurd-service->shepherd-service): Use them to add entry for syslog.
---
gnu/services/hurd.scm | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index c193dbf..fabf54a 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -26,6 +26,7 @@
#:use-module (guix modules)
#:use-module (guix records)
#:use-module (srfi srfi-1)
+ #:use-module (srfi srfi-26)
#:use-module (ice-9 match)
#:export (hurd-console-configuration
hurd-console-service-type
@@ -46,6 +47,7 @@
(($ <guix-configuration>) (guix-shepherd-service config))
(($ <hurd-console-configuration>) (hurd-console-shepherd-service config))
(($ <hurd-ttys-configuration>) (hurd-ttys-shepherd-service config))
+ (($ <syslog-configuration>) (syslog-shepherd-service config))
(('user-processes) (user-processes-shepherd-service '()))
(_ '()))))
@@ -65,6 +67,19 @@
;;;
+;;; Bridge for syslog.
+;;;
+
+(define <syslog-configuration>
+ (@@ (gnu services base) <syslog-configuration>))
+
+(define (syslog-shepherd-service config)
+ (append-map (cut <> config)
+ (map service-extension-compute
+ (service-type-extensions syslog-service-type))))
+
+
+;;;
;;; Bridge for user-processes service, required for guix-daemon.
;;;
- 01/36: services: Add hurd., (continued)
- 01/36: services: Add hurd., guix-commits, 2020/05/01
- 13/36: system: hurd: Add openssh service., guix-commits, 2020/05/01
- 15/36: Revert "DRAFT: hurd: use static-networking instead of dummy loopback hack.", guix-commits, 2020/05/01
- 05/36: HACK services: Add guix-daemon-service as a Hurd service., guix-commits, 2020/05/01
- 07/36: HACK services: hurd: Add dummy loopback., guix-commits, 2020/05/01
- 16/36: system: hurd: Create system profile for guix development., guix-commits, 2020/05/01
- 17/36: system: gnu: Add %bootstrap-{gcc, binutils, glibc} for devel profile., guix-commits, 2020/05/01
- 08/36: squash! Use static-networking for loopback, guix-commits, 2020/05/01
- 24/36: services: hurd: Use hurd-file-systems-service., guix-commits, 2020/05/01
- 23/36: system: hurd: Export system variables., guix-commits, 2020/05/01
- 06/36: HACK services: hurd: Add dummy syslog.,
guix-commits <=
- 11/36: DRAFT system: hurd: Add the Shepherd., guix-commits, 2020/05/01
- 18/36: system: hurd: Add guix., guix-commits, 2020/05/01
- 21/36: services: Add hurd-file-systems-service-type., guix-commits, 2020/05/01
- 22/36: services: hurd: Move hurd-default-essential-services., guix-commits, 2020/05/01
- 20/36: services: hurd: Move hurd-etc-sevcices., guix-commits, 2020/05/01
- 25/36: system: hurd: Add hurd-grub-configuration-file., guix-commits, 2020/05/01
- 36/36: HACK Don't fail on running host's localedef., guix-commits, 2020/05/01
- 28/36: system: vm: Add defaults for the Hurd., guix-commits, 2020/05/01
- 29/36: gnu: glibc/hurd-headers: Cross-build fix for the Hurd., guix-commits, 2020/05/01
- 34/36: WIP: gnu: services: Add %hurd-bare-metal-service., guix-commits, 2020/05/01