+instance FromJSON JsonRpcResponse where
+ parseJSON (Object o) = JsonRpcResponse
+ <$> o .: "result"
+ <*> o .: "error"
+ <*> o .: "id"
+ parseJSON x = return $ JsonRpcResponse
+ Nothing
+ (JsonRpcError
+ (-32700)
+ "Unparseable response object"
+ Nothing
+ )
+ ""