[OK] New bridgeness implemented: user should either use the old one or the new one...
[gargantext.git] / src / Gargantext / Core / Ext / IMTUser.hs
index 058221f8a15a80e3f1b16bbfa1886c5afb0359f3..de9435a3c8e4b328cd13b2f865e44c864825afc8 100644 (file)
@@ -123,7 +123,7 @@ readCSVFile_Annuaire' :: FilePath -> IO (Header, Vector IMTUser)
 readCSVFile_Annuaire' = fmap readCsvHalLazyBS' . BL.readFile
   where
     readCsvHalLazyBS' :: BL.ByteString -> (Header, Vector IMTUser)
-    readCsvHalLazyBS' bs = case decodeByNameWith csvDecodeOptions bs of
+    readCsvHalLazyBS' bs = case decodeByNameWith (csvDecodeOptions Tab) bs of
           Left  e    -> panic (cs e)
           Right rows -> rows
 
@@ -169,7 +169,8 @@ imtUser2gargContact (IMTUser { id
                      , _cw_firstName = prenom
                      , _cw_lastName = nom
                      , _cw_keywords = catMaybes [service]
-                     , _cw_freetags = [] }
+                     , _cw_freetags = []
+                     , _cw_description = Nothing }
     ou  = ContactWhere { _cw_organization = toList entite
                        , _cw_labTeamDepts = toList service
                        , _cw_role = fonction