Revert "moves :dns scry for ames domains in :dns|auto generator"

This reverts commit 9c1616802e.

pkg/arvo/app/dns.hoon

@@ -12,7 +12,9 @@
       ==
     +$  peek-data  _!!
     +$  in-poke-data
-      $%  [%dns-auto ames-domains=(list turf)]
+      $%  ::  XX ames-domains unused, remove
+          ::
+          [%dns-auto ames-domains=(list turf)]
           [%dns-address =address:dns]
       ==
     +$  out-poke-data
@@ -135,15 +137,12 @@
     ::  +galaxy-domains
     ::
     ++  galaxy-domains
-      |=  ames-domains=(list turf)
       =/  m  (async:stdio ,~)
       ^-  form:m
       ;<  our=@p   bind:m  get-identity:stdio
-      :: XX urbit/urbit#1314
-      ::
-      :: ;<  now=@da  bind:m  get-time:stdio
-      :: =/  ames-domains=(list turf)
-      ::   .^((list turf) %j /(scot %p our)/turf/(scot %da now))
+      ;<  now=@da  bind:m  get-time:stdio
+      =/  ames-domains=(list turf)
+        .^((list turf) %j /(scot %p our)/turf/(scot %da now))
       |-  ^-  form:m
       =*  loop  $
       ?~  ames-domains
@@ -207,7 +206,7 @@
       ::
       ~&  %galaxy-only
       (pure:m state)
-    ;<  ~  bind:m  (galaxy-domains ames-domains.in-poke-data)
+    ;<  ~  bind:m  galaxy-domains
     (pure:m state)
   ::
   ::  manual dns binding -- by explicit ipv4

pkg/arvo/gen/dns/auto.hoon

@@ -6,7 +6,7 @@
 /+  *generators
 :-  %ask
 |=  [[now=@da eny=@uvJ bec=beak] ~ ~]
-^-  (sole-result [%dns-auto (list turf)])
+^-  (sole-result [%dns-auto ~])
 =*  our  p.bec
 =/  rac  (clan:title our)
 ::
@@ -23,7 +23,4 @@
   %+  print  leaf+msg3
   %+  print  leaf+msg2
   (print leaf+msg1 no-product)
-::
-=/  ames-domains=(list turf)
-  .^((list turf) %j /(scot %p our)/turf/(scot %da now))
-(produce [%dns-auto ames-domains])
+(produce [%dns-auto ~])