             (http-response/status (get http-codes http-code)))))
 
 (defn send-plain-response
+    "Send a response (with application/json MIME type) back to the client."
     [response]
     (-> (http-response/response response)
         (http-response/content-type "application/json")))
 
 (defn info-handler
+    "REST API handler for the /api request."
     [request hostname]
     (let [response {:name       "Emender Jenkins Service"
                     :version    (config/get-version request)

        (send-response response request)))

(defn configuration-handler
    [request]
    (if (config/verbose-show-configuration? request)
        (let [response (-> request :configuration)]

            (http-response/content-type "application/json"))))

(defn send-error-response
    "Send error response (with application/json MIME type) back to the client."
    [response request http-code]
    (if (config/pretty-print? request)
        (-> (http-response/response (with-out-str (json/pprint response)))
