Commit ddedc982 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[GRAPH][OPTIM] edgeHovering cause perf issue.

parent 943d280e
......@@ -215,7 +215,7 @@ sigmaSettings =
, drawEdges: true
, drawLabels: true
, drawNodes: true
, enableEdgeHovering: true
, enableEdgeHovering: false
, edgeHoverExtremities: true
, edgeHoverColor: "edge"
, edgeHoverSizeRatio: 2.0
......
......@@ -62,6 +62,7 @@ newtype MetaData = MetaData
, legend :: Array Legend
, corpusId :: Array Int
, listId :: ListId
, version :: Int
}
getLegend :: GraphData -> Maybe (Array Legend)
......@@ -97,7 +98,7 @@ initialGraphData = GraphData {
nodes: []
, edges: []
, sides: []
, metaData : Just $ MetaData {title : "", legend : [], corpusId : [], listId : 0}
, metaData : Just $ MetaData {title : "", legend : [], corpusId : [], listId : 0, version : 0}
}
instance decodeJsonGraphData :: DecodeJson GraphData where
......@@ -134,7 +135,8 @@ instance decodeJsonMetaData :: DecodeJson MetaData where
legend <- obj .: "legend"
corpusId <- obj .: "corpusId"
listId <- obj .: "listId"
pure $ MetaData { title, legend, corpusId, listId}
version <- obj .: "version"
pure $ MetaData { title, legend, corpusId, listId, version}
instance decodeJsonLegend :: DecodeJson Legend where
......
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