             "")))
 
 (defn- path-filename
-  [path] (.getName (File. path)))
+  [path] (.getName (File. ^String path)))
 
 (defn- include-file*
   [path]

      serialized-map
      (fn [_ path body]
        (println "exporting:" path)
        (spit path body))))
  ([serialized-map f]
     (doseq [[id {:keys [path body]}] serialized-map]
       (when (and path body)

    (.setMethod zip ZipOutputStream/DEFLATED)
    (doseq [[id {:keys [path body]}] serialized-map]
      (when (and path body)
        (let [buf ^bytes (as-byte-array body)]
          (doto zip
            (.putNextEntry (ZipEntry. ^String path))
            (.write buf 0 (alength buf)))))))
  serialized-map)

