diagnostics: Turn diagnostic locations into hyperlinks.
* guix/diagnostics.scm (print-diagnostic-prefix): Use 'location->hyperlink' when 'supports-hyperlinks?' returns true.
This commit is contained in:
parent
3da62bf5aa
commit
13307c198b
@ -204,7 +204,10 @@ macro-expansion time."
|
||||
(gettext prefix %gettext-domain))))
|
||||
(if location
|
||||
(format (guix-warning-port) "~a: ~a"
|
||||
(location-color (location->string location))
|
||||
(location-color
|
||||
(if (supports-hyperlinks? (guix-warning-port))
|
||||
(location->hyperlink location)
|
||||
(location->string location)))
|
||||
(prefix-color prefix))
|
||||
(format (guix-warning-port) "~:[~*~;guix ~a: ~]~a"
|
||||
(program-name) (program-name)
|
||||
|
Loading…
Reference in New Issue
Block a user