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

git-checkout: doc repairs

Browse Source
This commit is contained in:
Matthew Flatt 2019-02-02 13:00:18 -07:00
parent 608005ac06
commit acb2cfc465
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/net-doc/net/scribblings/git-checkout.scrbl
View File

@ -29,8 +29,8 @@ for information on command-line arguments and flags.
(apply printf args) (apply printf args)
(flush-output))] (flush-output))]
[#:initial-error initial-error (or #f (-> any)) #f] [#:initial-error initial-error (or #f (-> any)) #f]
[#:tmp-dir given-tmp-dir (or/c #f path-string?) #f] [#:tmp-dir tmp-dir (or/c #f path-string?) #f]
[#:clean-tmp-dir? clean-tmp-dir? any/c (not given-tmp-dir)] [#:clean-tmp-dir? clean-tmp-dir? any/c (not tmp-dir)]
[#:verify-server? verify-server? any/c #t] [#:verify-server? verify-server? any/c #t]
[#:port port (or/c #f (integer-in 1 65535)) (case transport [#:port port (or/c #f (integer-in 1 65535)) (case transport
[(git) 9418] [(git) 9418]
@ -75,7 +75,7 @@ tag. Furthermore, the default @racket[depth] argument allows
@racket[git-checkout] to obtain only the latest commit and its @racket[git-checkout] to obtain only the latest commit and its
objects, instead of the entire history of the branch or commit. If objects, instead of the entire history of the branch or commit. If
@racket[ref] is any other commit ID or tree ID, then the entire @racket[ref] is any other commit ID or tree ID, then the entire
repository is downloaded, including all branches. repository may have to be downloaded, including all branches.
Status information is reported via @racket[status-printf]. The same Status information is reported via @racket[status-printf]. The same
information is always logged with the name @racket['git-checkout] at information is always logged with the name @racket['git-checkout] at

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

@ -101,7 +101,8 @@
(or ref-commit ref))))) (or ref-commit ref)))))
(define depth (and given-depth (define depth (and given-depth
(or ref-commit try-limit-depth) (or ref-commit (and try-limit-depth
(eq? given-depth 1)))
(cond (cond
[(member "shallow" server-capabilities) [(member "shallow" server-capabilities)
(if ref-commit (if ref-commit