summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-09-04 21:35:57 +0200
committerLudovic Courtès <ludo@gnu.org>2014-09-04 21:35:57 +0200
commit39c4563aeaa525e71328d1ec08ef568c8a124152 (patch)
tree9d96eb43f88cc6628de6a4f30457ebbe65d6ab6d
parent457f60fa068c7becf60841daa2b6fc5121aedead (diff)
downloadguix-39c4563aeaa525e71328d1ec08ef568c8a124152.tar.gz
profiles: Use a real arrow to denote upgrades in ASCII.
Suggested by Alex Kost.

* guix/profiles.scm (right-arrow): Fall back to "->".
* tests/profiles.scm ("manifest-show-transaction"): Adjust accordingly.
-rw-r--r--guix/profiles.scm2
-rw-r--r--tests/profiles.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 919f27d250..9dc9ab43b9 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -326,7 +326,7 @@ replacement if PORT is not Unicode-capable."
               (lambda ()
                 (display arrow)))))
         (lambda (key . args)
-          ">")))))
+          "->")))))
 
 (define* (manifest-show-transaction store manifest transaction
                                     #:key dry-run?)
diff --git a/tests/profiles.scm b/tests/profiles.scm
index 879f71073f..99f1fd2763 100644
--- a/tests/profiles.scm
+++ b/tests/profiles.scm
@@ -167,7 +167,7 @@
                              (with-error-to-string
                               (lambda ()
                                 (manifest-show-transaction store m t)))))
-             (string-match "guile\t1.8.8 > 2.0.9"
+             (string-match "guile\t1.8.8 -> 2.0.9"
                            (with-fluids ((%default-port-encoding "ISO-8859-1"))
                              (with-error-to-string
                               (lambda ()