summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-20 21:52:31 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-20 23:37:11 +0200
commit9bea3b42b49434bccd9acd296569d2a874eddb6e (patch)
tree445ac6fb540c83d8f5fe670a2641ba63bb71ed42
parent5bbd6bf1815398f3cbe3d2f218b537a82f7219a7 (diff)
downloadguix-9bea3b42b49434bccd9acd296569d2a874eddb6e.tar.gz
vm: Fix typo.
Regression introduced in e38e18f.

* guix/build/vm.scm (initialize-hard-disk)[partition]: Use a string.
-rw-r--r--guix/build/vm.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build/vm.scm b/guix/build/vm.scm
index cf661a33f3..e3f6d27ee7 100644
--- a/guix/build/vm.scm
+++ b/guix/build/vm.scm
@@ -168,7 +168,7 @@ further populate the partition."
     (string-append target-directory (%store-directory)))
 
   (define partition
-    (string-append device 1))
+    (string-append device "1"))
 
   (unless (initialize-partition-table device
                                       #:partition-size