Http.walk.more.n: def of emerging-ezhttp@0.21.0.0
Import: import emerging-ezhttp@0.21.0.0/src/http.bend as Http
Lines 1713-1724 of emerging-ezhttp@0.21.0.0/src/http.bend: https://jend.leeeet.dev/read.txt?path=emerging-ezhttp@0.21.0.0/src/http.bend&start_line=1713&end_line=1724

import Base

# a walk advanced by m octets it does not look at (walk.counts says when
# that is walk.more)
def walk.more.n(w: Walk, +m: Nat) -> Walk:
  match w:
    case Ended{}:
      Ended{}
    case Hold{fuel, rest}:
      Hold{fuel, rest}
    case Owed{g, owed}:
      Owed{Nat.add(g, m), Nat.sub(owed, m)}
    case Tail{fuel, left, rest}:
      Tail{fuel, left, rest}

Uses (4):
  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=Nat.sub
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.21.0.0/src/http.bend&name=Walk