From 270fa799b8e77c2d05691cb7eec190730d00ee02 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 27 Jan 2016 18:06:18 +0000 Subject: [PATCH] distorted.lisp: Actually publish default addresses for public services. I broke these by adding the TLSA records carelessly. Maybe the zone program should be fixed. --- distorted.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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")) -- 2.11.0