Merge pull request #30 from ontodev/blank-node-bug-fix

Fix duplicated values (fixes #28)
ontodev · Nov 19, 2024 · 2b515f6 · 2b515f6
2 parents 692cab3 + f039757
commit 2b515f6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/ldtab/thin2thick.clj b/src/ldtab/thin2thick.clj
@@ -260,7 +260,9 @@
   "Given a set of thin triples,
     return a map from subjects to thin triples."
   [thin-triples]
-  (group-by (fn [^Triple x] (.getSubject x)) thin-triples))
+  (let [grouping (group-by (fn [^Triple x] (.getSubject x)) thin-triples)
+        dedup (map-on-hash-map-vals distinct grouping)]
+    dedup))
 
 (defn thin-2-thick-triple-raw
   "Given a root thin triple t (see function root-triples) and a map from subjects to thin triples in an RDF graph G,