Http.phrase.chop.at: def of emerging-ezhttp@0.21.0.0
Import: import emerging-ezhttp@0.21.0.0/src/http.bend as Http
Lines 1759-1773 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=1759&end_line=1773

import Base

# a reason phrase with the CR its line ended with removed; a reason-phrase
# itself holds no CR (RFC 9112 §4)
def phrase.chop.at(
  cr: Bool,
  ch: Char,
  tl: String,
  rest: Unit -> String
) -> String:
  match cr tl:
    case True{} SNil{}:
      SNil{}
    case True{} SCon{x, xt}:
      SCon{ch, rest(Unit{})}
    case False{} _:
      SCon{ch, rest(Unit{})}

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
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit