::  Tells whether GCP Storage appears to be configured.
::
::  Thread since it needs to be called from Landscape.
::
::
/-  gcp, spider, settings
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|^
|=  *
=/  m  (strand ,vase)
^-  form:m
;<  has=?  bind:m
  %:  has-settings
    %client-email
    %private-key
    %private-key-id
    %token-uri
    ~
  ==
%-  pure:m
!>
^-  json
b+has
::
++  has-settings
  |=  set=(list @tas)
  =/  m  (strand ?)
  ^-  form:m
  ?~  set
    (pure:m %.y)
  ;<  has=?  bind:m  (has-setting i.set)
  ?.  has
    (pure:m %.n)
  ;<  has=?  bind:m  (has-settings t.set)
  (pure:m has)
::
++  has-setting
  |=  key=@tas
  =/  m  (strand ?)
  ^-  form:m
  ;<  =bowl:spider  bind:m  get-bowl:strandio
  ;<  has=?  bind:m
    %+  scry:strandio  ?
    /gx/settings-store/has-entry/[q.byk.bowl]/gcp-store/[key]/noun
  (pure:m has)
::
--