[FIX:SocialList] API connection

src/Gargantext/Core/Text/List.hs

@@ -90,10 +90,15 @@ buildNgramsOthersList user uCid groupIt (nt, MapListSize mapListSize) = do
     <- flowSocialList' MySelfFirst user nt (Set.fromList $ Map.keys ngs')
     -- PrivateFirst for first developments since Public NodeMode is not implemented yet
 
+  -- printDebug "flowSocialList'" socialLists'
+
   let
     groupParams     = GroupedTextParams groupIt (Set.size . snd) fst snd {-(size . fst)-}
     groupedWithList = toGroupedText groupParams socialLists' ngs'
 
+  printDebug "groupedWithList" groupedWithList
+
+  let
     (stopTerms, tailTerms) = Map.partition (\t -> t ^. gt_listType == Just StopTerm) groupedWithList
     (mapTerms, tailTerms') = Map.partition (\t -> t ^. gt_listType == Just MapTerm)  tailTerms
 

src/Gargantext/Core/Text/List/Group/WithStem.hs

@@ -14,7 +14,6 @@ Portability : POSIX
 {-# LANGUAGE TypeFamilies           #-}
 {-# LANGUAGE FunctionalDependencies #-}
 
-
 module Gargantext.Core.Text.List.Group.WithStem
   where
 
@@ -68,8 +67,8 @@ data GroupedText score =
               , _gt_size     :: !Int
               , _gt_stem     :: !Stem -- needed ?
               , _gt_nodes    :: !(Set NodeId)
-              } {-deriving Show--}
---{-
+              }  deriving Show --}
+{-
 instance Show score => Show (GroupedText score) where
   show (GroupedText lt l s _ _ _ _) = show l <> " : " <> show lt <> " : " <> show s
 --}
@@ -104,8 +103,16 @@ groupWithStem :: {- ( HasNgrams a
               => -} GroupedTextParams a b
               -> Map Text (GroupedTextScores (Set NodeId))
               -> Map Stem (GroupedText Int)
-groupWithStem _ = undefined -- TODO (just for tests on Others Ngrams which do not need stem)
+groupWithStem _ = Map.mapWithKey scores2groupedText
 
+scores2groupedText :: Text -> GroupedTextScores (Set NodeId) -> GroupedText Int
+scores2groupedText t g = GroupedText (view gts_listType g)
+                                     t
+                                     (Set.size $ view gts_score g)
+                                     (Set.delete t $ view gts_children g)
+                                     (size t)
+                                     t
+                                     (view gts_score g)
 
 ------------------------------------------------------------------------
 ngramsGroup :: GroupParams
@@ -139,5 +146,4 @@ groupedTextWithStem gparams from =
                                 t'
                                 ((view gt_fun_nodeIds gparams') d)
                          )
-
 ------------------------------------------------------------------------

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

@@ -72,7 +72,7 @@ data FlowListScores =
                 -- You can add any score by incrementing this type
                 -- , _flc_score   :: Map Score Int
                  }
-    deriving (Generic)
+    deriving (Show, Generic)
 
 makeLenses ''FlowListScores