[LIST.CSV] fix label and forms.

src/Gargantext/Text/List/CSV.hs

@@ -43,7 +43,7 @@ csvGraphTermList fp = csv2list CsvMap <$> snd <$>  fromCsvListFile fp
 
 csv2list :: CsvListType -> Vector CsvList -> TermList
 csv2list lt vs = V.toList $ V.map (\(CsvList _ label forms)
-                           -> (DT.words label, filter (not . null) . map DT.words $ DT.splitOn csvListFormsDelimiter forms))
+                           -> (DT.words label, [DT.words label] <> (filter (not . null) . map DT.words $ DT.splitOn csvListFormsDelimiter forms)))
                          $ V.filter (\l -> csvList_status l == lt ) vs
 
 ------------------------------------------------------------------------