net/git-checkout: fix checkout of symlinks
This commit is contained in:
parent
4caaf3e8b3
commit
42cf80815d
|
@ -684,8 +684,8 @@
|
|||
[(#"40000" #"040000")
|
||||
(extract-tree id obj-ids tmp (build-path dest-dir fn))]
|
||||
[(#"120000")
|
||||
(make-file-or-directory-link (build-path dest-dir fn)
|
||||
(object->bytes tmp (this-object-location)))]
|
||||
(make-file-or-directory-link (bytes->path (object->bytes tmp (this-object-location)))
|
||||
(build-path dest-dir fn))]
|
||||
[(#"160000")
|
||||
;; submodule; just make a directory placeholder
|
||||
(make-directory* (build-path dest-dir fn))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user