Multiple response depending of the Accept header
Example of json generation with aeson
Provide a json value
Add another resource
New mimeType to show Haskell object
Refactoring and use direct HaskellShow type
Everything together