Json matcher doesn't accept correct header

[Philonous]

I'm trying to test a REST api written in servant. To that end I have a test like this:

get "/users" `shouldRespondWith` [json|[{"name":"bob"}]|]

That test fails with

  1) GET /users responds with [User]
       missing header:
         Content-Type: application/json
       the actual headers were:
         Content-Type: application/json;charset=utf-8

The actual header is compatible with the required one, so this shouldn't fail.

[sol]

@Philonous As I understand it application/json; charset=utf-8 is non-standard. See also #40 and elsewhere on the Internet.

[sol]

@Philonous if you want to test your current behavior, you can do this with:

get "/users" `shouldRespondWith` [json|[{"name":"bob"}]|] {matchHeaders = ["Content-Type" <:> "application/json; charset=utf-8"]}

[sol]

@jkarni any opinion on this. Have you had a discussion on what the right thing for servant is before?

[Philonous]

Servant seems to implement it on purpose to appease other clients (see haskell-servant/servant#849).

Also, the JSON rfc remarks that although it isn't defined, it should be ignored by compliant recipients:

Note: No "charset" parameter is defined for this registration.
Adding one really has no effect on compliant recipients.

So I think this should be fixed here and have implemented a patch: #47

[sol]

I added a lengthy source code comment in 791dcbb that elaborates my view on this matter.

[sol]

Fixed.

[Philonous]

Thanks :)