pure $ jsonParser r.response >>= decodeJson