raco pkg catalog-archive: revert bad change
Unchanged with respect to state database is still changed with respect to the catalog being constructed!
This commit is contained in:
parent
3d9d12a4d6
commit
9c53358035
|
@ -120,24 +120,6 @@
|
|||
#:quiet? quiet?)
|
||||
(when clean? (delete-directory/files staged-dir))
|
||||
(values staged-checksum)]))
|
||||
;; Record packed result:
|
||||
(define new-checksum (file->string pkg-checksum-file))
|
||||
(parameterize ([db:current-pkg-catalog-file temp-catalog-file])
|
||||
(db:call-with-pkgs-transaction
|
||||
(lambda ()
|
||||
(define modules (db:get-pkg-modules name (db:pkg-catalog pkg) (db:pkg-checksum pkg)))
|
||||
(define dependencies (db:get-pkg-dependencies name (db:pkg-catalog pkg) (db:pkg-checksum pkg)))
|
||||
(db:set-pkg! name (db:pkg-catalog pkg)
|
||||
(db:pkg-author pkg)
|
||||
(path->string (path->complete-path pkg-file))
|
||||
new-checksum
|
||||
(db:pkg-desc pkg))
|
||||
(db:set-pkg-modules! name (db:pkg-catalog pkg)
|
||||
new-checksum
|
||||
modules)
|
||||
(db:set-pkg-dependencies! name (db:pkg-catalog pkg)
|
||||
new-checksum
|
||||
dependencies))))
|
||||
;; Record packed result in state catalog:
|
||||
(when state-catalog
|
||||
(parameterize ([db:current-pkg-catalog-file state-catalog])
|
||||
|
@ -145,7 +127,25 @@
|
|||
(db:pkg-author pkg)
|
||||
(db:pkg-source pkg)
|
||||
staged-checksum
|
||||
(db:pkg-desc pkg)))))))
|
||||
(db:pkg-desc pkg)))))
|
||||
;; Record packed result at new location:
|
||||
(define new-checksum (file->string pkg-checksum-file))
|
||||
(parameterize ([db:current-pkg-catalog-file temp-catalog-file])
|
||||
(db:call-with-pkgs-transaction
|
||||
(lambda ()
|
||||
(define modules (db:get-pkg-modules name (db:pkg-catalog pkg) (db:pkg-checksum pkg)))
|
||||
(define dependencies (db:get-pkg-dependencies name (db:pkg-catalog pkg) (db:pkg-checksum pkg)))
|
||||
(db:set-pkg! name (db:pkg-catalog pkg)
|
||||
(db:pkg-author pkg)
|
||||
(path->string (path->complete-path pkg-file))
|
||||
new-checksum
|
||||
(db:pkg-desc pkg))
|
||||
(db:set-pkg-modules! name (db:pkg-catalog pkg)
|
||||
new-checksum
|
||||
modules)
|
||||
(db:set-pkg-dependencies! name (db:pkg-catalog pkg)
|
||||
new-checksum
|
||||
dependencies))))))
|
||||
(define dest-catalog (build-path dest-dir "catalog"))
|
||||
(unless quiet?
|
||||
(printf/flush "Creating catalog ~a\n" dest-catalog))
|
||||
|
|
Loading…
Reference in New Issue
Block a user