Http.token.ok: def of emerging-ezhttp@0.22.0.0
Import: import emerging-ezhttp@0.22.0.0/src/http.bend as Http
Lines 741-747 of emerging-ezhttp@0.22.0.0/src/http.bend: https://jend.leeeet.dev/read.txt?path=emerging-ezhttp@0.22.0.0/src/http.bend&start_line=741&end_line=747

import Base

# a bearer token has no whitespace (RFC 6750 §2.1)
def token.ok(s: String) -> Bool:
  match s:
    case SNil{}:
      True{}
    case SCon{h, t}:
      token.ok.step(Char.is_space(h), _u => token.ok(t))

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Char.is_space
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.22.0.0/src/http.bend&name=token.ok.step