json-response: Minor server.hs refactoring.