From 8a6d273137a1485da2ba4c76c41e40c81f8f2f30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 27 Jun 2014 00:11:38 +0200
Subject: [PATCH] system: Adjust the set of fields with default values.
* gnu/system.scm (<operating-system>)[file-systems]: Remove default.
[locale]: Add default value.
---
gnu/system.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gnu/system.scm b/gnu/system.scm
index 9872bb49f34..dc8f9ef41c6 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -87,8 +87,7 @@ (define-record-type* <operating-system> operating-system
(host-name operating-system-host-name) ; string
- (file-systems operating-system-file-systems ; list of fs
- (default '()))
+ (file-systems operating-system-file-systems) ; list of fs
(users operating-system-users ; list of user accounts
(default '()))
@@ -104,7 +103,8 @@ (define-record-type* <operating-system> operating-system
(default %base-packages)) ; or just PACKAGE
(timezone operating-system-timezone) ; string
- (locale operating-system-locale) ; string
+ (locale operating-system-locale ; string
+ (default "en_US.UTF-8"))
(services operating-system-user-services ; list of monadic services
(default %base-services))
--
GitLab