json-response: Clean up server.hs.