 
         (let [jar-contents
               (->> (find-jar-resources* cp jar-file checksum)
+                   (quarantine-bad-jar-contents jar-file)
                    (process-root-contents cp jar-file))]
           (io/make-parents mfile)
           (try

  (->> (process-deps-cljs cp source-path root-contents)
       (inspect-resources cp)))

(defn find-jar-resources
  [{:keys [manifest-cache-dir] :as cp} ^File jar-file]
  (let [checksum

            (catch Throwable e
              (log/info-ex e ::jar-cache-write-ex {:file mfile})))
          jar-contents))))

(comment
  (tap>
    (let [svc (start (io/file "tmp" "jar-manifests"))]
      (find-jar-resources
        svc
        (io/file
          (System/getProperty "user.home")
          ".m2"
          "repository"
          "viz-cljc"
          "viz-cljc"
          "0.1.3"
          "viz-cljc-0.1.3.jar"
          )))))

(defn make-fs-resource [^File file name]
  (let [last-mod
