From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 27 Jan 2016 18:06:18 +0000 (+0000)
Subject: distorted.lisp: Actually publish default addresses for public services.
X-Git-Url: https://git.distorted.org.uk/~mdw/zones/commitdiff_plain/270fa799b8e77c2d05691cb7eec190730d00ee02

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
--- 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"))