distorted.lisp: Publish a TLSA record for `rawk'.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index 54d5dd8..88c9bd2 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -169,6 +169,9 @@
 
   ;; Local services.
   (rawk (unsafe :svc artist.unsafe) (dmz :svc artist.dmz))
+  (rawk :tlsa (:https (:service-certificate-constraint
+                      :public-key :sha-256
+                      #p"https-artist")))
   (mirror (dmz :svc roadstar.dmz :sshfp "roadstar")
          (unsafe :svc roadstar.unsafe :sshfp "roadstar"))