suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Only bother to avoid taking a remote package if the local one has been edited

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-11-10 14:31:23 -05:00
parent 2cb428a484
commit 4288c80319
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/packages.rkt
View File

@ -99,7 +99,13 @@
[(not local-pkg) remote-pkg]
[(and (eq? local-pkg 'tombstone) (not remote-pkg)) #f]
[(eq? local-pkg 'tombstone) 'tombstone]
[(> (or (@ remote-pkg last-edit) 0) (or (@ local-pkg last-edit) 0)) remote-pkg]
[(or (not (@ local-pkg _LOCALLY_MODIFIED_))
;; If it's locally modified, only take the remote site
;; when its edit-time is newer than the current one
;; (which is the unmodified timestamp of the version
;; upon which the local edits are based)
(> (or (@ remote-pkg last-edit) 0) (or (@ local-pkg last-edit) 0)))
remote-pkg]
[else local-pkg]))
(if new-local-pkg
(hash-set acc package-name new-local-pkg)