Skip to content

haskell-gargantext
haskell-gargantext
Commit 5dbb665d authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[graph] add _camera_angle

parent 924aeb1c
Show whitespace changes
Inline Side-by-side
Showing with 6 additions and 6 deletions
src/Gargantext/Core/Viz/Graph.hs
View file @ 5dbb665d
...@@ -203,7 +203,8 @@ data GraphV3 = GraphV3 { go_links :: [EdgeV3] ...@@ -203,7 +203,8 @@ data GraphV3 = GraphV3 { go_links :: [EdgeV3]
$(deriveJSON (unPrefix "go_") ''GraphV3) $(deriveJSON (unPrefix "go_") ''GraphV3)
----------------------------------------------------------- -----------------------------------------------------------
data Camera = Camera { _camera_ratio :: Double data Camera = Camera { _camera_angle :: Double
, _camera_ratio :: Double
, _camera_x :: Double , _camera_x :: Double
, _camera_y :: Double } , _camera_y :: Double }
deriving (Show, Generic) deriving (Show, Generic)
......
src/Gargantext/Core/Viz/Graph/API.hs
View file @ 5dbb665d
...@@ -369,4 +369,3 @@ getGraphGexf :: FlowCmdM env err m ...@@ -369,4 +369,3 @@ getGraphGexf :: FlowCmdM env err m
getGraphGexf uId nId = do getGraphGexf uId nId = do
HyperdataGraphAPI { _hyperdataAPIGraph = graph } <- getGraph uId nId HyperdataGraphAPI { _hyperdataAPIGraph = graph } <- getGraph uId nId
pure $ addHeader "attachment; filename=graph.gexf" graph pure $ addHeader "attachment; filename=graph.gexf" graph
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