From 33ec2f58ffb66da80e32854d27e5be376365ad69 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 6 Jun 2025 18:22:51 +0200
Subject: [PATCH] services: iwd: Provide default value in <iwd-settings>.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes a failure of ‘tests/guix-system.sh’, when running ‘guix system
search .’:

    2296:10  3 (iwd-environment _)
     2165:0  2 (%iwd-network-settings-name-resolving-service-procedure #)
  In ice-9/boot-9.scm:
    1685:16  1 (raise-exception _ #:continuable? _)
    1685:16  0 (raise-exception _ #:continuable? _)

  ice-9/boot-9.scm:1685:16: In procedure raise-exception:
  In procedure struct-vtable: Wrong type argument in position 1 (expecting struct): %unset-marker%

* gnu/services/networking.scm (iwd-settings)[network]: Provide default
value.

Change-Id: I2ea28853f698583ceeaa0b56cde8447fe3546dc3
---
 doc/guix.texi               | 2 +-
 gnu/services/networking.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index e25a821926c..be51ca00d25 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -22478,7 +22478,7 @@ Available @code{iwd-settings} fields are:
 @item @code{general} (type: iwd-general-settings)
 General settings.
 
-@item @code{network} (type: maybe-iwd-network-settings)
+@item @code{network} (default: @code{(iwd-network-settings)}) (type: maybe-iwd-network-settings)
 Network settings.
 
 @item @code{scan} (type: maybe-iwd-scan-settings)
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index 9825e5f75b2..adf2ac7a7de 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -2228,7 +2228,7 @@ appended to the Scan settings group.")
    "General settings.")
 
   (network
-   maybe-iwd-network-settings
+   (maybe-iwd-network-settings (iwd-network-settings))
    "Network settings.")
 
   (scan