raco pkg catalog-archive: fix handling of source with no checksum

This commit is contained in:
Matthew Flatt 2014-06-02 09:44:27 +01:00
parent a718aeb441
commit ae2b0b93a1

View File

@ -3286,8 +3286,8 @@
(define new-checksum
(file->string (path-replace-suffix pkg-file #".zip.CHECKSUM")))
(parameterize ([db:current-pkg-catalog-file temp-catalog-file])
(define modules (db:get-pkg-modules name (db:pkg-catalog pkg) current-checksum))
(define dependencies (db:get-pkg-dependencies name (db:pkg-catalog pkg) current-checksum))
(define modules (db:get-pkg-modules name (db:pkg-catalog pkg) (or current-checksum "")))
(define dependencies (db:get-pkg-dependencies name (db:pkg-catalog pkg) (or current-checksum "")))
(db:set-pkg! name (db:pkg-catalog pkg)
(db:pkg-author pkg)
(path->string (path->complete-path pkg-file))