fixed bizarre bug with ?-

DEMO.md

@@ -11,8 +11,8 @@ Runs the full node API services.
 ## Start Agents and set XPUBs
 On `~zod`. Uses "abandon abandon..." mnemonic
 ```
-=network %main
 =network %testnet
+=network %main
 |commit %home
 |start %btc-provider
 |start %btc-wallet

app/btc-provider.hoon

@@ -153,14 +153,14 @@
 ++  handle-action
   |=  act=action
   ^-  (quip card _state)
-  ?.  ?|(connected.host-info =(-.act %ping))
+  ?.  ?|(connected.host-info ?=(%ping -.act))
     ~&  >>>  "Not connected to RPC"
     [~[(send-update [%| %not-connected 500])] state]
   ?:  ?&(?=(%check-network -.act) ?!(=(network.act network.host-info)))
     %-  (slog ~[leaf+"network mismatch with client {<src.bowl>}"])
     (kick-client src.bowl)
   =/  ract=action:rpc-types
-    ?+  -.act  ~|("Invalid action" !!)
+    ?-  -.act  ::  ~|("Invalid action" !!)
         %address-info
       [%get-address-info address.act]
       ::
@@ -172,6 +172,9 @@
       ::
         %broadcast-tx
       [%broadcast-tx rawtx.act]
+      ::
+        %ping
+      [%get-block-info ~]
     ==
   [~[(req-card act ract)] state]
 ::

sur/btc-provider.hoon

@@ -1,4 +1,4 @@
-/-  *bitcoin, *resource
+/-  *bitcoin, resource
 |%
 +$  host-info
   $:  api-url=@t
@@ -11,14 +11,14 @@
   $:  public=?
       kids=?
       users=(set ship)
-      groups=(set resource)
+      groups=(set resource:resource)
   ==
 ::
 +$  whitelist-target
   $%  [%public ~]
       [%kids ~]
       [%users users=(set ship)]
-      [%groups groups=(set resource)]
+      [%groups groups=(set resource:resource)]
   ==
 +$  command
   $%  [%set-credentials api-url=@t =network]