Http.walk.counts: def of emerging-ezhttp@0.21.0.0
Import: import emerging-ezhttp@0.21.0.0/src/http.bend as Http
Lines 1700-1711 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=1700&end_line=1711

import Base

# whether a walk can be advanced by a count of octets alone: inside a chunk's
# data that still owes at least that many
def walk.counts(w: Walk, +m: Nat) -> Bool:
  match w:
    case Ended{}:
      False{}
    case Hold{fuel, rest}:
      False{}
    case Owed{fuel, owed}:
      Bool.not(Nat.is_lt(owed, m))
    case Tail{fuel, left, rest}:
      False{}

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool.not
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.is_lt
  https://jend.leeeet.dev/definition.txt?path=emerging-ezhttp@0.21.0.0/src/http.bend&name=Walk