Commit 52efc212 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[TEXT] Removing patents in right panel.

parent 0444401c
......@@ -66,7 +66,7 @@ instance decodeJsonGraphData :: DecodeJson GraphData where
metadata <- obj .? "metadata"
corpusIds <- metadata .? "corpusId"
metaData <- obj .? "metadata"
let side x = GraphSideCorpus { corpusId: x, corpusLabel: "Pubs / Patents" }
let side x = GraphSideCorpus { corpusId: x, corpusLabel: "Publications" }
let sides = side <$> corpusIds
pure $ GraphData { nodes, edges, sides, metaData }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment