[STATS] cosmetics on Map before changes.

src/Gargantext/Viz/Graph/API.hs

@@ -23,7 +23,7 @@ module Gargantext.Viz.Graph.API
   where
 
 import Data.List (sortOn)
-import Control.Lens (set, view)
+import Control.Lens (set, over)
 import Control.Monad.IO.Class (liftIO)
 import Gargantext.API.Ngrams.Tools
 import Gargantext.API.Types
@@ -78,9 +78,7 @@ getGraph nId = do
 
   graph <- liftIO $ cooc2graph myCooc
   pure $ set graph_metadata (Just metadata)
-       $ set graph_nodes ( sortOn node_id
-                         $ view graph_nodes graph
-                         ) graph
+       $ over graph_nodes (sortOn node_id) graph
 
 
 postGraph :: NodeId -> GargServer (Post '[JSON] [NodeId])