p_line :: Parser ByteString
qp_line = do
  ls <- many (qp_segment <* transport_padding <* crlf)
  l <- qp_part <* transport_padding
  return $ S.concat ls <> l

qp_line :: Parser ByteString
qp_line = do
  ls <- many (qp_segment <* transport_padding <* crlf)
  l <- qp_part <* transport_padding
  return $ S.concat ls <> l
qp_line = do
  ls <- many (qp_segment <* transport_padding <* crlf)
  l <- qp_part <* transport_padding
  return $ S.concat ls <> l