 (defn- simplify-data
   "Given an ArrayList of Features simplify the Features and return stats about the process
   along with a new shapefile info map to replace the one in the search reqeust"
-  [filename ^ArrayList features feature-type mime-type]
+  [filename ^ArrayList features mime-type]
   (let [[simplified-features stats] (iterative-simplify features mime-type)
         [original-point-count new-point-count] stats]
     [[original-point-count

  to point to the new (reduced) shapefile"
  [request]
  (when (= "true" (get-in request [:params "simplify-shapefile"]))
    (if-let [tmp-file (get-in request [:params "shapefile" :tempfile])]
      (simplify (get-in request [:params "shapefile"]))
      (errors/throw-service-error :bad-request "Missing shapefile"))))


  "Adds shapefile simplification header to response when shapefile simplication was
  requested."
  [handler default-format-fn]
  (fn [{_context :request-context :as request}]
    (try
      (if-let [[[original-point-count new-point-count] result] (simplify-shapefile request)]
        (-> (assoc-in request [:params "shapefile"] result)
