anchor.diff:      JsonGet(
         "/pools",
         fun (PoolsRaw) ->
  -              ?log_debug("Have PoolsRaw: ~p", [PoolsRaw]),
                 expect_object(
                   PoolsRaw, Context,
                   fun (Pools) ->
  
positive.code:     true = (Username =/= undefined),
      true = (Password =/= undefined),
      true = (Hostname =/= undefined),
  
      ?log_debug("Doing remote cluster"),
  
      {Host, Port} = host_and_port(Hostname),
  
  
negative.code:     fun (Path, K) ->
              URL = menelaus_rest:rest_url(Host, Port, Path, Scheme),
              ?log_debug("Doing get of ~s", [URL]),
              R = menelaus_rest:json_request_hilevel(get,
                                                     {URL, {Host, Port, Path}},
                                                     {Username, Password},
                                                     Options),
  
              case R of
                  {ok, Value} ->
  