vm: Fix typo.

Regression introduced in e38e18f. * guix/build/vm.scm (initialize-hard-disk)[partition]: Use a string.
2014-05-20 21:52:31 +02:00 · 2014-05-20 21:52:31 +02:00 · 9bea3b42b4
commit 9bea3b42b4
parent 5bbd6bf181
1 changed files with 1 additions and 1 deletions
--- 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