Skip to content

H
haskell-gargantext
Commit 81f6b3fd authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[STATS] cosmetics on Map before changes.

parent fe2a3c30
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 6 deletions
src/Gargantext/Viz/Graph/API.hs
View file @ 81f6b3fd
...@@ -23,7 +23,7 @@ module Gargantext.Viz.Graph.API ...@@ -23,7 +23,7 @@ module Gargantext.Viz.Graph.API
where where
import Data.List (sortOn) import Data.List (sortOn)
import Control.Lens (set, view) import Control.Lens (set, over)
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Gargantext.API.Ngrams.Tools import Gargantext.API.Ngrams.Tools
import Gargantext.API.Types import Gargantext.API.Types
...@@ -78,9 +78,7 @@ getGraph nId = do ...@@ -78,9 +78,7 @@ getGraph nId = do
graph <- liftIO $ cooc2graph myCooc graph <- liftIO $ cooc2graph myCooc
pure $ set graph_metadata (Just metadata) pure $ set graph_metadata (Just metadata)
$ set graph_nodes ( sortOn node_id $ over graph_nodes (sortOn node_id) graph
$ view graph_nodes graph
) graph
postGraph :: NodeId -> GargServer (Post '[JSON] [NodeId]) postGraph :: NodeId -> GargServer (Post '[JSON] [NodeId])
......
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