       f)))
 
 (defn- success?
+  "Passed a resonse map, determines if the status indicates success."
   [{:keys [status]}]
   (<= 200 status 399))
 


(def
  DEFAULT-MAPPINGS
  "Default mappings for route specs to functions. We use keyword for function name for increased readability."
  [[[:get "/new"] :new]
   [[:get "/:id"] :show]
   [[:put "/:id"] :update]

        (handler request)))))

(defn rook-handler
  "Handler that uses information from :rook entry in the request map to invoke the previously
  identified functionm, after resolving the function's arguments."
  [request]
  (let [rook-data (-> request :rook)
        arg-resolvers (concat (-> rook-data :default-arg-resolvers)
