     false))
 
 (defn read-integer-parameter
+  "Read integer parameter from HTTP request."
   [request parameter-name]
   (if-let [parameter-value (-> (:params request)
                                (get parameter-name))]

                           :content [(:word word)]})})))

(defn words->edn
  [words]
  (with-out-str
    (clojure.pprint/pprint words)))

(defn words->csv
  [words]
  (with-out-str
    (csv/write-csv *out* words)))

(defn words->vector
  [words]
  (for [word words]
    (vals word)))

(defn process-wordlist-json
  [request dictionary-type]
  (let [search-results (db-interface/read-all-words dictionary-type)
        json-output    (words->json search-results)]

        (http-response/content-type "text/xml"))))

(defn process-wordlist-edn
  "Prepare report with all words in EDN format."
  [request dictionary-type]
  (let [search-results (db-interface/read-all-words dictionary-type)
        edn-output     (words->edn search-results)]
