Commit 3c69e15f authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Annuaire] Whole database.

parent 42bd5bfc
Pipeline #34 canceled with stage
......@@ -74,7 +74,7 @@ flowInsert _nt hyperdataDocuments cName = do
flowAnnuaire :: FilePath -> IO ()
flowAnnuaire filePath = do
contacts <- deserialiseImtUsersFromFile filePath
ps <- flowInsertAnnuaire "Annuaire" $ take 10 $ map (\h-> ToDbContact h) $ map addUniqIdsContact contacts
ps <- flowInsertAnnuaire "Annuaire" $ map (\h-> ToDbContact h) $ map addUniqIdsContact contacts
printDebug "length annuaire" (ps)
--{-
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment