Support reading the DNS domains from the Ships contract.

app/constitution.hoon

@@ -7,6 +7,7 @@
 ++  state
   $:  ships=(map @p hull)
       block=@ud                                         ::  last heard
+      dns=[pri=@t sec=@t ter=@t]
       filter=(unit @ud)                                 ::  our filter id
   ==
 ::
@@ -76,6 +77,10 @@
         %get-spawned
       :-  (crip "getSpawned({(scow %p who.cal)})")
       ['getSpawned(uint32)' ~[uint+`@`who.cal]]
+    ::
+        %dns-domains
+      :-  (crip "dnsDomains({(scow %ud ind.cal)})")
+      ['dnsDomains(uint8)' ~[uint+ind.cal]]
     ==
   ::
   ++  ta-read-ships

lib/constitution.hoon

@@ -1,13 +1,16 @@
 /-  constitution, ethereum
+/+  ethereum
+=>  [^constitution ethereum]
 |%
 ++  parse-id
   |=  id=@t
-  ^-  ships:function:^constitution
+  ^-  ships:function
   |^
     %+  rash  id
     ;~  pose
       (function %ships 'ships' shipname)
       (function %get-spawned 'getSpawned' shipname)
+      (function %dns-domains 'dnsDomain' dem:ag)
     ==
   ::
   ++  function

sur/constitution.hoon

@@ -56,6 +56,7 @@
   ++  ships
     $%  [%ships who=@p]
         [%get-spawned who=@p]
+        [%dns-domains ind=@ud]
     ==
   --
 ::
@@ -110,5 +111,10 @@
   ++  changed-key
     0x6a39.f4e0.c935.b557.860d.3df3.9f1f.cb6b.
       d63c.5a23.2d9e.fc28.5388.2994.f60c.708a
+  ::
+  ::  ChangedDns(string,string,string)
+  ++  changed-dns
+    0xfafd.04ad.e1da.ae2e.1fdb.0fc1.cc6a.899f.
+      d424.063e.d5c9.2120.e67e.0730.53b9.4898
   --
 --