Commit 5ea50a50 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[graph] fix snapshot by adding empty children to node

parent 0bdb245a
...@@ -18,12 +18,13 @@ type GraphId = Int ...@@ -18,12 +18,13 @@ type GraphId = Int
newtype Node = Node { newtype Node = Node {
attributes :: Cluster attributes :: Cluster
, id_ :: String , children :: Array String
, label :: String , id_ :: String
, size :: Int , label :: String
, type_ :: String , size :: Int
, x :: Number , type_ :: String
, y :: Number , x :: Number
, y :: Number
} }
x_coordP = SProxy :: SProxy "x_coord" x_coordP = SProxy :: SProxy "x_coord"
......
...@@ -15,6 +15,7 @@ stEdgeToGET { _original } = _original ...@@ -15,6 +15,7 @@ stEdgeToGET { _original } = _original
stNodeToGET :: Record ST.Node -> GET.Node stNodeToGET :: Record ST.Node -> GET.Node
stNodeToGET { id, label, x, y, _original: GET.Node { attributes, size, type_ } } = GET.Node { stNodeToGET { id, label, x, y, _original: GET.Node { attributes, size, type_ } } = GET.Node {
attributes attributes
, children: []
, id_: id , id_: id
, label , label
, size , size
......
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