def form.head
import emerging-ezhttp@0.21.0.0/src/form.bend as Formimport Base
170# a part's header lines, each ended by CRLF (RFC 7578 §4.2, §4.4)
171def form.head(p: Part) -> String:
172 match p:
173 case Field{name, value}:
174 form.disposition(name) ++ "\r\n"
175 case File{name, filename, ctype, clash}:
176 form.disposition(name) ++ "; filename=\"" ++ form.quote(filename) ++ "\"\r\n"
177 ++ "Content-Type: " ++ ctype ++ "\r\n"