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 ...@@ -66,7 +66,7 @@ instance decodeJsonGraphData :: DecodeJson GraphData where
metadata <- obj .? "metadata" metadata <- obj .? "metadata"
corpusIds <- metadata .? "corpusId" corpusIds <- metadata .? "corpusId"
metaData <- obj .? "metadata" metaData <- obj .? "metadata"
let side x = GraphSideCorpus { corpusId: x, corpusLabel: "Pubs / Patents" } let side x = GraphSideCorpus { corpusId: x, corpusLabel: "Publications" }
let sides = side <$> corpusIds let sides = side <$> corpusIds
pure $ GraphData { nodes, edges, sides, metaData } 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