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
, _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