Support JSON serialization of document shapes (issue #270)

[GaspardP]

Hi team, here's the fix for issue #270.

I can't recall how I listed the shapes last time but the following seems to work and still matches what I reported previously.

(require '[cognitect.aws.client.api :as aws]
         '[cognitect.aws.client.protocol :as client.protocol])

(def client (aws/client {:api :bedrock-runtime}))
(def service (-> client client.protocol/-get-info :service))
(->> service :shapes (filter (fn [[_ s]] (:document s))))
;; ([:ModelInputPayload {:type "structure", :members {}, :document true, :sensitive true}]
;;  [:Document {:type "structure", :members {}, :document true}])

The example from #272 can be used to check the fix (not sure if you want integration tests for this as the modelId keep changing?).

;; clojure -Sdeps '{:deps {com.cognitect.aws/api {:local/root "."}
;;                         com.cognitect.aws/endpoints {:mvn/version "871.2.42.24"}
;;                         com.cognitect.aws/bedrock-runtime {:mvn/version "871.2.41.25"
;;                                                            :aws/serviceFullName "Amazon Bedrock Runtime"}}}'
(require '[cognitect.aws.client.api :as aws])

(def bedrock-runtime-client
  (delay
    (aws/client {:api :bedrock-runtime})))

(aws/invoke
 @bedrock-runtime-client
 {:op      :Converse
  :request {:modelId         "us.amazon.nova-micro-v1:0"
            :messages        [{:role    "user"
                               :content [{:text "how many cars are there?"}]}]
            :toolConfig      {:tools [{:toolSpec {:name        "get-user-cars"
                                                  :description "Get all devices for a customer."
                                                  :inputSchema {:json {:type       "object"
                                                                       :properties {:customer-id {:type "string"}}
                                                                       :required   ["customer-id"]}}}}]}
            :inferenceConfig {:maxTokens   512
                              :temperature 0.5
                              :topP        0.9}}})

Let me know if you need anything else.

[scottbale]

👍

[scottbale]

Thanks @GaspardP 🙏

[GaspardP]

Happy to help! Thanks for the review.