fixing getByKey based on Stack Overflow answer

See http://stackoverflow.com/questions/16781090/key-access-in-an-arbitrary-json-object-in-haskell