From bf8e7fc502057c5e59f541351a2bf35d2b20e612 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 1 Sep 2013 19:24:21 +0200
Subject: store: Add a printer for <nix-server>.

* guix/store.scm (<nix-server>): Set a printer.
---
 guix/store.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'guix/store.scm')

diff --git a/guix/store.scm b/guix/store.scm
index 343da91506..541c7c848f 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -25,6 +25,7 @@ (define-module (guix store)
   #:use-module (rnrs io ports)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
+  #:use-module (srfi srfi-9 gnu)
   #:use-module (srfi srfi-26)
   #:use-module (srfi srfi-34)
   #:use-module (srfi srfi-35)
@@ -242,6 +243,14 @@ (define-record-type <nix-server>
   (ats-cache  nix-server-add-to-store-cache)
   (atts-cache nix-server-add-text-to-store-cache))
 
+(set-record-type-printer! <nix-server>
+                          (lambda (obj port)
+                            (format port "#<build-daemon ~a.~a ~a>"
+                                    (nix-server-major-version obj)
+                                    (nix-server-minor-version obj)
+                                    (number->string (object-address obj)
+                                                    16))))
+
 (define-condition-type &nix-error &error
   nix-error?)
 
-- 
cgit v1.2.3