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

net/git-checkout: fix checkout of symlinks

Browse Source
This commit is contained in:
Matthew Flatt 2015-10-02 09:05:34 -06:00
parent 4caaf3e8b3
commit 42cf80815d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/net/git-checkout.rkt
View File

@ -684,8 +684,8 @@
[(#"40000" #"040000") [(#"40000" #"040000")
(extract-tree id obj-ids tmp (build-path dest-dir fn))] (extract-tree id obj-ids tmp (build-path dest-dir fn))]
[(#"120000") [(#"120000")
(make-file-or-directory-link (build-path dest-dir fn) (make-file-or-directory-link (bytes->path (object->bytes tmp (this-object-location)))
(object->bytes tmp (this-object-location)))] (build-path dest-dir fn))]
[(#"160000") [(#"160000")
;; submodule; just make a directory placeholder ;; submodule; just make a directory placeholder
(make-directory* (build-path dest-dir fn))] (make-directory* (build-path dest-dir fn))]