def ask.agree
import emerging-ezhttp@0.22.0.0/src/http.bend as Httpimport Base
1172# disagreeing Content-Length values are bad before framing
1173def ask.agree(method: String, target: String, headers: List<&2, Header>,
1174 te: String, +lens: List<&2, String>, body: String, ok: Bool) -> Request:
1175 match ok:
1176 case False{}:
1177 Bad{"Content-Length values disagree"}
1178 case True{}:
1179 ask.te(method, target, headers, lens, body,
1180 String.contains(String.to_lower(te), "chunked"))