Skip to content

haskell-gargantext
haskell-gargantext
Commit d937e72e authored by Fabien Manière's avatar Fabien Manière Committed by Fabien Maniere
2 Browse files
Options

adding weight attribute

parent 13457ca8
Pipeline #7217 passed with stages
          in 67 minutes and 3 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 0 deletions
          src/Gargantext/Core/Viz/Graph/GEXF.hs
          View file @ d937e72e
          ...@@ -63,6 +63,7 @@ graphToXML (G.Graph { .. }) = root _graph_nodes _graph_edges ...@@ -63,6 +63,7 @@ graphToXML (G.Graph { .. }) = root _graph_nodes _graph_edges
          where where
          params = XML.attr "id" node_id params = XML.attr "id" node_id
          <> XML.attr "label" node_label <> XML.attr "label" node_label
          <> XML.attr "weight" (show node_size)
          sizeParams = XML.attr "value" (show node_size) sizeParams = XML.attr "value" (show node_size)
          edges :: (Monad m) => [G.Edge] -> ConduitT i XML.Event m () edges :: (Monad m) => [G.Edge] -> ConduitT i XML.Event m ()
          ......
          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