Http.walk.more: def of emerging-ezhttp@0.22.0.0
Import: import emerging-ezhttp@0.22.0.0/src/http.bend as Http
Lines 1600-1612 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=1600&end_line=1612

import Base

# the walk once m more characters, b, have arrived
def walk.more(w: Walk, +m: Nat, b: String) -> Walk:
  match w:
    case Ended{}:
      Ended{}
    case Hold{fuel, rest}:
      walk(Nat.add(fuel, m), rest ++ b)
    case Owed{g, owed}:
      +f = Nat.add(g, m)
      walk.data(f, octs.skip(b, owed), s => walk(f, s))
    case Tail{g, left, rest}:
      +f = Nat.add(g, m)
      walk.data(f, Over{left, rest ++ b}, s => walk(f, s))

Uses (9):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.add
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String.append
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.22.0.0/src/http.bend&name=Skip
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.22.0.0/src/http.bend&name=Walk
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.22.0.0/src/http.bend&name=octs.skip
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.22.0.0/src/http.bend&name=walk
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.22.0.0/src/http.bend&name=walk.data