From d441bfccfaff17509fba17216ea96792c6c71a77 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 22 Oct 2022 08:42:18 -0400 Subject: site: Use issue-deprecation-warning for deprecation notification. --- haunt/site.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/haunt/site.scm b/haunt/site.scm index 225e582..d656943 100644 --- a/haunt/site.scm +++ b/haunt/site.scm @@ -124,11 +124,15 @@ PUBLISHERS: A list of publisher objects for upload site contents to a remote loc (mkdir build-dir)) (for-each (match-lambda ((? page? page) - (display "warning: page objects are deprecated; switch to serialized-artifact\n") + (issue-deprecation-warning + "Page objects are deprecated" + " Use serialized-artifact instead") (format #t "writing page '~a'~%" (page-file-name page)) (write-page page build-dir)) ((? asset? asset) - (display "warning: asset objects are deprecated; switch to verbatim-artifact\n") + (issue-deprecation-warning + "Asset objects are deprecated" + " Use verbatim-artifact instead") (format #t "copying asset '~a' → '~a'~%" (asset-source asset) (asset-target asset)) -- cgit v1.2.3