ontent_type :: Parser Field
content_type
  = header "Content-Type" $
      ContentType <$> type_
                  <*> ("/"*>subtype)
                  <*> many (trim ";" *> content_type_parm)

content_type :: Parser Field
content_type
  = header "Content-Type" $
      ContentType <$> type_
                  <*> ("/"*>subtype)
                  <*> many (trim ";" *> content_type_parm)
content_type
  = header "Content-Type" $
      ContentType <$> type_
                  <*> ("/"*>subtype)
                  <*> many (trim ";" *> content_type_parm)