Be lenient in case of missing forms columns in ngram imports

src/Gargantext/API/Ngrams/List.hs

@@ -181,7 +181,8 @@ ngramsListFromTSVData tsvData = case decodeTsv of
     decodeTsv = Vec.catMaybes <$>
                    Tsv.decodeWithP tsvToNgramsTableMap
                                    (Tsv.defaultDecodeOptions { Tsv.decDelimiter = fromIntegral (P.ord '\t') })
-                                   Tsv.HasHeader
+                                   -- Don't use an header, make it lenient in case the 'forms' are missing.
+                                   Tsv.NoHeader
                                    binaryData
 
 -- | Converts a plain TSV 'Record' into an NgramsTableMap
@@ -189,6 +190,9 @@ tsvToNgramsTableMap :: Tsv.Record -> Tsv.Parser (Maybe NgramsTableMap)
 tsvToNgramsTableMap record = case Vec.toList record of
   (map P.decodeUtf8 -> [status, label, forms])
     -> pure $ Just $ conv status label forms
+  -- Garg #381: alias the forms to the empty text.
+  (map P.decodeUtf8 -> [status, label])
+    -> pure $ Just $ conv status label mempty
   -- WARNING: This silently ignores errors (#433)
   _ -> pure Nothing
 

src/Gargantext/Core/Text/List/Formats/TSV.hs

@@ -54,7 +54,9 @@ data TsvList = TsvList
 instance FromNamedRecord TsvList where
   parseNamedRecord r = TsvList <$> r .: "status"
                                <*> r .: "label"
-                               <*> r .: "forms"
+                               -- Issue #381: be lenient in the forms
+                               -- field, if missing, default to the empty text.
+                               <*> (fromMaybe mempty <$> r .: "forms")
 
 instance ToNamedRecord TsvList where
   toNamedRecord (TsvList s l f) =