[FIX] flow Annuaire

src/Gargantext/API/Node/Contact.hs

@@ -100,8 +100,6 @@ addContact u nId (AddContactParams fn ln) logStatus = do
                , _scst_remaining = Just 0
                , _scst_events    = Just []
                }
-
-
 addContact _uId _nId _p logStatus = do
   simuLogs logStatus 10
 

src/Gargantext/Database/Action/Flow.hs

@@ -32,6 +32,7 @@ module Gargantext.Database.Action.Flow -- (flowDatabase, ngrams2list)
   , flowCorpusFile
   , flowCorpus
   , flowAnnuaire
+  , insertMasterDocs
 
   , getOrMkRoot
   , getOrMk_RootWithCorpus
@@ -226,25 +227,6 @@ flowCorpusUser l user corpusName ctype ids = do
   -- _ <- mkAnnuaire  rootUserId userId
   pure userCorpusId
 
--- TODO Type NodeDocumentUnicised
-insertDocs :: ( FlowCmdM env err m
-              -- , FlowCorpus a
-              , FlowInsertDB a
-              )
-              => UserId
-              -> CorpusId
-              -> [a]
-              -> m ([DocId], [DocumentWithId a])
-insertDocs uId cId hs = do
-  let docs = map addUniqId hs
-  newIds <- insertDb uId cId docs
-  -- printDebug "newIds" newIds
-  let
-    newIds' = map reId newIds
-    documentsWithId = mergeData (toInserted newIds) (Map.fromList $ map viewUniqId' docs)
-  _ <- Doc.add cId newIds'
-  pure (newIds', documentsWithId)
-
 
 insertMasterDocs :: ( FlowCmdM env err m
                     , FlowCorpus a
@@ -292,6 +274,27 @@ insertMasterDocs c lang hs  =  do
   pure ids'
 
 ------------------------------------------------------------------------
+-- TODO Type NodeDocumentUnicised
+insertDocs :: ( FlowCmdM env err m
+              -- , FlowCorpus a
+              , FlowInsertDB a
+              )
+              => UserId
+              -> CorpusId
+              -> [a]
+              -> m ([DocId], [DocumentWithId a])
+insertDocs uId cId hs = do
+  let docs = map addUniqId hs
+  newIds <- insertDb uId cId docs
+  -- printDebug "newIds" newIds
+  let
+    newIds' = map reId newIds
+    documentsWithId = mergeData (toInserted newIds) (Map.fromList $ map viewUniqId' docs)
+  _ <- Doc.add cId newIds'
+  pure (newIds', documentsWithId)
+
+
+
 ------------------------------------------------------------------------
 viewUniqId' :: UniqId a
             => a

src/Gargantext/Database/Query/Table/Node/Document/Insert.hs

@@ -283,9 +283,11 @@ instance ToNode HyperdataDocument where
       m = fromMaybe 1 $ _hd_publication_month h
       d = fromMaybe 1 $ _hd_publication_day   h
 
--- TODO
+-- TODO better Node
 instance ToNode HyperdataContact where
-  toNode = undefined
+  toNode u p h = Node 0 Nothing (nodeTypeId NodeContact) u (Just p) "Contact" date h
+    where
+      date  = jour 2020 01 01