From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 1/6] guix system: Export accessors. Date: Sun, 10 Jan 2016 12:53:45 +0300 Message-ID: <1452419630-4399-2-git-send-email-alezost@gmail.com> References: <1452419630-4399-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34504) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aIChX-0002OZ-UK for guix-devel@gnu.org; Sun, 10 Jan 2016 04:54:20 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aIChV-00027Y-D6 for guix-devel@gnu.org; Sun, 10 Jan 2016 04:54:19 -0500 Received: from mail-lf0-x242.google.com ([2a00:1450:4010:c07::242]:34381) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aIChV-00026Z-6K for guix-devel@gnu.org; Sun, 10 Jan 2016 04:54:17 -0500 Received: by mail-lf0-x242.google.com with SMTP id n70so18268255lfn.1 for ; Sun, 10 Jan 2016 01:54:16 -0800 (PST) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id h9sm19893746lbj.42.2016.01.10.01.54.15 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Sun, 10 Jan 2016 01:54:15 -0800 (PST) In-Reply-To: <1452419630-4399-1-git-send-email-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * guix/scripts/system.scm (read-boot-parameters, boot-parameters) (boot-parameters?, boot-parameters-label, boot-parameters-root-device) (boot-parameters-kernel, boot-parameters-kernel-arguments): Export. --- guix/scripts/system.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 1407dc7..1adeceb 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -49,7 +49,14 @@ #:use-module (srfi srfi-37) #:use-module (ice-9 match) #:export (guix-system - read-operating-system)) + read-operating-system + read-boot-parameters + boot-parameters + boot-parameters? + boot-parameters-label + boot-parameters-root-device + boot-parameters-kernel + boot-parameters-kernel-arguments)) ;;; -- 2.6.3