       (index-rc-remove index resource-name)
       )))
 
+(comment
+  (let [svc (start (io/file ".shadow-cljs" "jar-manifests"))]
+    (index-classpath svc)
+
+    (tap> svc)
+    (stop svc)))
+
 (defn start [cache-root]
   (let [co
         (doto (CompilerOptions.)

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

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


        (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
