[graph] add _camera_angle

5dbb665d · Przemyslaw Kaminski · 924aeb1c · 5dbb665d · 5dbb665d
Commit 5dbb665d authored Nov 28, 2022 by Przemyslaw Kaminski
Show whitespace changes
Inline Side-by-side

Showing with 6 additions and 6 deletions

Graph.hs src/Gargantext/Core/Viz/Graph.hs +4 -3

API.hs src/Gargantext/Core/Viz/Graph/API.hs +2 -3

No files found.
--- a/src/Gargantext/Core/Viz/Graph.hs
+++ b/src/Gargantext/Core/Viz/Graph.hs
@@ -203,7 +203,8 @@ data GraphV3 = GraphV3 { go_links :: [EdgeV3]
 $(deriveJSON (unPrefix "go_") ''GraphV3)

 -----------------------------------------------------------
-data Camera = Camera { _camera_ratio :: Double
+data Camera = Camera { _camera_angle :: Double
+                     , _camera_ratio :: Double
                     , _camera_x     :: Double
                     , _camera_y     :: Double }
  deriving (Show, Generic)

--- a/src/Gargantext/Core/Viz/Graph/API.hs
+++ b/src/Gargantext/Core/Viz/Graph/API.hs
@@ -369,4 +369,3 @@ getGraphGexf :: FlowCmdM env err m
 getGraphGexf uId nId = do
  HyperdataGraphAPI { _hyperdataAPIGraph = graph } <- getGraph uId nId
  pure $ addHeader "attachment; filename=graph.gexf" graph
-