swagger-spec-handler => create-swagger-handler

CHANGELOG.md

@@ -40,7 +40,7 @@
      ["/swagger.json"
       {:get {:no-doc true
              :swagger {:info {:title "my-api"}}
-             :handler swagger/swagger-spec-handler}}]
+             :handler (swagger/create-swagger-handler)}}]
 
      ["/spec" {:coercion spec/coercion}
       ["/plus"

modules/reitit-swagger/src/reitit/swagger.cljc

@@ -65,9 +65,9 @@
   {:name ::swagger
    :spec ::spec})
 
-(defn swagger-spec-handler
+(defn create-swagger-handler []
-  "Ring handler to emit swagger spec."
+  "Create a ring handler to emit swagger spec."
-  [{:keys [::r/router ::r/match :request-method]}]
+  (fn [{:keys [::r/router ::r/match :request-method]}]
     (let [{:keys [id] :as swagger} (-> match :result request-method :data :swagger)
           swagger (set/rename-keys swagger {:id :x-id})
           accept-route #(-> % second :swagger :id (= id))
@@ -85,4 +85,4 @@
       (if id
         (let [paths (->> router (r/routes) (filter accept-route) (map transform-path) (into {}))]
           {:status 200
-         :body (meta-merge swagger {:paths paths})}))))
+           :body (meta-merge swagger {:paths paths})})))))

test/cljc/reitit/swagger_test.clj

@@ -16,7 +16,7 @@
        ["/swagger.json"
         {:get {:no-doc true
                :swagger {:info {:title "my-api"}}
-               :handler swagger/swagger-spec-handler}}]
+               :handler (swagger/create-swagger-handler)}}]
 
        ["/spec" {:coercion spec/coercion}
         ["/plus"