[Clean]

src/Gargantext/Core/Text/Group.hs

@@ -63,7 +63,8 @@ ngramsGroup :: GroupParams
             -> Text
             -> Text
 ngramsGroup GroupIdentity  = identity
-ngramsGroup (GroupParams l _m _n _) = Text.intercalate " "
+ngramsGroup (GroupParams l _m _n _) = 
+                    Text.intercalate " "
                   . map (stem l)
                   -- . take n
                   . List.sort
@@ -79,10 +80,10 @@ mergeMapParent = undefined
 
 ------------------------------------------------------------------------
 toGroupedText :: Ord b
-              => (Text -> Text)
-              -> (a -> b)
-              -> (a -> Set Text)
-              -> (a -> Set NodeId)
+              => (Text -> Text      )
+              -> (a    -> b         )
+              -> (a    -> Set Text  )
+              -> (a    -> Set NodeId)
               -> [(Text,a)]
               -> Map Stem (GroupedText b)
 toGroupedText fun_stem fun_score fun_texts fun_nodeIds from = groupStems' $ map group from
@@ -152,5 +153,3 @@ addListType m g = set gt_listType (hasListType m g) g
       $ map (\t -> Map.lookup t m')
       $ Set.toList
       $ Set.insert label g'
-
-

src/Gargantext/Core/Text/List.hs

@@ -58,8 +58,8 @@ buildNgramsLists :: ( RepoCmdM env err m
 buildNgramsLists user gp uCid mCid = do
   ngTerms     <- buildNgramsTermsList user uCid mCid gp
   othersTerms <- mapM (buildNgramsOthersList user uCid (ngramsGroup GroupIdentity))
-                      [ (Authors, MapListSize 9)
-                      , (Sources, MapListSize 9)
+                      [ (Authors   , MapListSize 9)
+                      , (Sources   , MapListSize 9)
                       , (Institutes, MapListSize 9)
                       ]
 
@@ -83,7 +83,8 @@ buildNgramsOthersList user uCid groupIt (nt, MapListSize mapListSize) = do
   ngs  <- groupNodesByNgramsWith groupIt <$> getNodesByNgramsUser uCid nt
 
   let 
-    grouped = toGroupedText groupIt (Set.size . snd) fst snd (Map.toList $ Map.mapWithKey (\k (a,b) -> (Set.delete k a, b)) $ ngs)
+    grouped = toGroupedText groupIt (Set.size . snd) fst snd
+              (Map.toList $ Map.mapWithKey (\k (a,b) -> (Set.delete k a, b)) $ ngs)
 
   socialLists <- flowSocialList user nt (Set.fromList $ Map.keys ngs)
 

src/Gargantext/Core/Text/List/Social.hs

@@ -57,7 +57,6 @@ flowSocialList user nt ngrams' = do
   -- printDebug "* socialLists *: results \n" result
   pure result
 
-
 ------------------------------------------------------------------------
 unions :: (Ord a, Semigroup a, Semigroup b, Ord b)
       => [Map a (Set b)] -> Map a (Set b)