    (schema/optional-key "options") {(schema/optional-key "capture_logs") schema/Bool
                                     (schema/optional-key "log_level") (schema/enum "debug" "info" "warn")}})
 
-(defn valid-body
+(defn validated-body
   [body schema]
   (let [parameters
         (try+

    (let [request-options (-> request
                              :body
                              slurp
                              (valid-body CatalogRequestV4))]
      {:status 200
       :headers {"Content-Type" "application/json"}
       :body (json/encode

          request-options (-> request
                              :body
                              slurp
                              (validated-body CompileRequest))
          compile-options (assoc request-options
                                 "code_id"
                                 (current-code-id-fn env))]
