We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9d8d371 commit 2ee0f25Copy full SHA for 2ee0f25
src/main/clojure/cljs/module_graph.cljc
@@ -229,12 +229,11 @@
229
e&d->ms (merge-with into e->ms d->ms)
230
orphans {:cljs-base
231
{:entries
232
- (map (comp str comp/munge first :provides)
233
- (-> (reduce-kv
234
- (fn [m k _]
235
- (reduce dissoc m (get-in m [k :provides])))
236
- index e&d->ms)
237
- vals set))}}
+ (->> (reduce-kv
+ (fn [m k _]
+ (reduce dissoc m (get-in m [k :provides])))
+ index e&d->ms)
+ vals (map (comp str comp/munge first :provides)) set)}}
238
o->ms (assigns identity orphans)
239
od->ms (assigns #(distinct (mapcat deps %)) orphans)
240
all->ms (merge-with into e&d->ms o->ms od->ms)]
0 commit comments