From b21e0d9132e629ade0abffd69396dd770c4b63c2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 7 Jul 2013 11:44:07 -0600 Subject: [PATCH] fix shortcut for native packages --- pkgs/distro-build/pack-native.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/distro-build/pack-native.rkt b/pkgs/distro-build/pack-native.rkt index 86c4ab1630..e28d466bc3 100644 --- a/pkgs/distro-build/pack-native.rkt +++ b/pkgs/distro-build/pack-native.rkt @@ -46,7 +46,8 @@ (define dest-sum (build-path (path->complete-path dest-dir) sum-file)) (unless (and (file-exists? dest-zip) (file-exists? dest-sum) - (equal? src-sha1 (call-with-input-file* dest-sum read))) + (equal? (list (version) src-sha1) + (call-with-input-file* dest-sum read))) (printf "packing ~a\n" zip-file) (define tmp-dir (make-temporary-file "~a-pkg" 'directory)) (generate-stripped-directory 'binary pkg-src-dir tmp-dir) @@ -58,7 +59,7 @@ dest-sum #:exists 'truncate/replace (lambda (o) - (write src-sha1 o) + (write (list (version) src-sha1) o) (newline o)))) (define (write-catalog-entry catalog-dir)