Просмотр исходного кода

fix <load-graph-txid-by-repo-urls

rcmerci 2 лет назад
Родитель
Сommit
52d25d79aa
1 измененных файлов с 11 добавлено и 8 удалено
  1. 11 8
      src/main/frontend/fs/sync.cljs

+ 11 - 8
src/main/frontend/fs/sync.cljs

@@ -147,14 +147,17 @@
    (let [graphs-txid-map        (into {} graphs-txid)
          graphs-txid-legacy-map (into {} graphs-txid-legacy)
          merged                 (merge graphs-txid-legacy-map graphs-txid-map)
-         unified                (map (fn [[repo-url v]]
-                                       (if (vector? v)
-                                         (let [[user-uuid graph-uuid txid] v
-                                               work-dir (config/get-repo-dir repo-url)]
-                                           {:user-uuid user-uuid :graph-uuid graph-uuid :txid txid
-                                            :work-dir work-dir})
-                                         v))
-                                     merged)]
+         unified                (into
+                                 {}
+                                 (map (fn [[repo-url v]]
+                                        (if (vector? v)
+                                          (let [[user-uuid graph-uuid txid] v
+                                                work-dir (config/get-repo-dir repo-url)]
+                                            [repo-url
+                                             {:user-uuid user-uuid :graph-uuid graph-uuid :txid txid
+                                              :work-dir work-dir}])
+                                          [repo-url v]))
+                                      merged))]
      unified)))
 
 (defn <load-graph-txid