rest-gen Haskell: Fix default error conversion when there is no output or error dictionaries.

The default should always be JSON when possible. In this case the accept header was `text/json` but the conversion `fromXML`.

I'm going to check the JS generation as well.