vm: Fix typo. Regression introduced in e38e18f. * guix/build/vm.scm (initialize-hard-disk)[partition]: Use a string.
1 files changed, 1 insertions(+), 1 deletions(-) M guix/build/vm.scm
M guix/build/vm.scm => guix/build/vm.scm +1 -1
@@ 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