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.

diff --git a/distorted.lisp b/distorted.lisp
index 5f03355..860d822 100644 (file)
--- 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"))