From 9bea3b42b49434bccd9acd296569d2a874eddb6e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 20 May 2014 21:52:31 +0200
Subject: [PATCH] vm: Fix typo.
Regression introduced in e38e18f.
* guix/build/vm.scm (initialize-hard-disk)[partition]: Use a string.
---
guix/build/vm.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/build/vm.scm b/guix/build/vm.scm
index cf661a33f3c..e3f6d27ee70 100644
--- a/guix/build/vm.scm
+++ b/guix/build/vm.scm
@@ -168,7 +168,7 @@ (define target-store
(string-append target-directory (%store-directory)))
(define partition
- (string-append device 1))
+ (string-append device "1"))
(unless (initialize-partition-table device
#:partition-size
--
GitLab