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
"packages from a Git repository " would " not share a local clone"
convert "\n"
(~a " repository: " repo "\n")
(~a " repository: " repo)
(append
(for/list ([(clone names) (in-hash clones)])
(~a " local clone: " clone "\n"
(~a "\n"
" local clone: " clone "\n"
" packages for local clone:"
(format-list names)
"\n"))
(format-list names)))
(list
(if (null? non-clones)
""
(~a " non-clone packages:"
(~a "\n"
" non-clone packages:"
(format-list non-clones)))))))
;; Determine a direction of conversion; we consider converting from