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

fix error-message formatting

Browse Source 
Avoid an extra newline.
This commit is contained in:
Matthew Flatt 2015-06-29 17:17:19 -06:00
parent 138e16e80f
commit e4eeaa79cb
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/collects/pkg/private/clone-path.rkt
View File

@ -130,17 +130,18 @@
string-append string-append
"packages from a Git repository " would " not share a local clone" "packages from a Git repository " would " not share a local clone"
convert "\n" convert "\n"
(~a " repository: " repo "\n") (~a " repository: " repo)
(append (append
(for/list ([(clone names) (in-hash clones)]) (for/list ([(clone names) (in-hash clones)])
(~a " local clone: " clone "\n" (~a "\n"
" local clone: " clone "\n"
" packages for local clone:" " packages for local clone:"
(format-list names) (format-list names)))
"\n"))
(list (list
(if (null? non-clones) (if (null? non-clones)
"" ""
(~a " non-clone packages:" (~a "\n"
" non-clone packages:"
(format-list non-clones))))))) (format-list non-clones)))))))
;; Determine a direction of conversion; we consider converting from ;; Determine a direction of conversion; we consider converting from