X-Git-Url: https://git.distorted.org.uk/~mdw/zones/blobdiff_plain/15cca8c6989c40a490041af35d1e39bda3870d86..270fa799b8e77c2d05691cb7eec190730d00ee02:/distorted.lisp?ds=sidebyside diff --git a/distorted.lisp b/distorted.lisp index 5f03355..860d822 100644 --- a/distorted.lisp +++ b/distorted.lisp @@ -142,12 +142,12 @@ ;; Colocated services. ((irc vox keys wiki) (colo :svc jazz.colo :sshfp "jazz") - (jump :svc jazz.jump :sshfp "jazz") - :tlsa (:https (:service-certificate-constraint + (jump :svc jazz.jump :sshfp "jazz")) + ((irc vox keys wiki) :tlsa (:https (:service-certificate-constraint :public-key :sha-256 #p"https-jazz"))) ((bugs lists) (colo :svc telecaster.colo :sshfp "telecaster") - (jump :svc telecaster.jump :sshfp "telecaster") - :tlsa (:https (:service-certificate-constraint + (jump :svc telecaster.jump :sshfp "telecaster")) + ((bugs lists) :tlsa (:https (:service-certificate-constraint :public-key :sha-256 #p"https-telecaster"))) ((git www mail) (colo :svc stratocaster.colo :sshfp "stratocaster") (jump :svc stratocaster.jump :sshfp "stratocaster"))