raco setup: print "summary of errors" before the summary of errors

This commit is contained in:
Matthew Flatt 2013-07-26 20:53:44 -06:00
parent 81079b3a02
commit 2ec49929a4

View File

@ -159,7 +159,7 @@
(define (done)
(unless (null? errors)
(setup-printf #f "")
(setup-printf #f "--- summary of errors ---")
(show-errors (current-error-port))
(when (pause-on-errors)
(eprintf "INSTALLATION FAILED.\nPress Enter to continue...\n")