[FIX] compilation before refactoring.

bin/gargantext-import/Main.hs

@@ -26,7 +26,7 @@ import Gargantext.Prelude
 import Gargantext.Database.Flow (FlowCmdM, flowCorpus)
 import Gargantext.Text.Parsers (FileFormat(CsvHalFormat))
 import Gargantext.Database.Utils (Cmd, )
-import Gargantext.Database.Types.Node (CorpusId)
+import Gargantext.Database.Types.Node (CorpusId, toHyperdataDocument)
 import Gargantext.Database.Schema.User (insertUsersDemo)
 import Gargantext.Text.Terms (TermType(..))
 import Gargantext.Core (Lang(..))
@@ -55,7 +55,7 @@ main = do
                        <$> readFile corpusPath
                        :: IO [[GrandDebatReference ]]
                        )
-        flowCorpus (Text.pack user) (Text.pack name) (Multi FR) docs
+        flowCorpus (Text.pack user) (Text.pack name) (Multi FR) (map (map toHyperdataDocument) docs)
 
 
   withDevEnv iniPath $ \env -> do

src/Gargantext/Database/Flow.hs

@@ -88,13 +88,12 @@ type FlowCorpus a = ( AddUniqId a
 
 ------------------------------------------------------------------------
 
---{-
-flowAnnuaire' :: FlowCmdM env ServantErr m 
+flowAnnuaire :: FlowCmdM env ServantErr m 
              => Username -> CorpusName -> (TermType Lang) -> FilePath -> m AnnuaireId
-flowAnnuaire' u n l filePath = do
+flowAnnuaire u n l filePath = do
   docs <- liftIO $ (( splitEvery 500 <$> deserialiseImtUsersFromFile filePath) :: IO [[HyperdataContact]])
-  flowAnnuaire u n (Multi FR) docs
---}
+  flow (Nothing :: Maybe HyperdataAnnuaire) u n l docs
+
 
 flowCorpusDebat :: FlowCmdM env ServantErr m
             => Username -> CorpusName
@@ -145,10 +144,6 @@ flowCorpus :: (FlowCmdM env ServantErr m, FlowCorpus a)
      => Username -> CorpusName -> TermType Lang -> [[a]] -> m CorpusId
 flowCorpus = flow (Nothing :: Maybe HyperdataCorpus)
 
-flowAnnuaire :: (FlowCmdM env ServantErr m, FlowCorpus a)
-     => Username -> CorpusName -> TermType Lang -> [[a]] -> m CorpusId
-flowAnnuaire = flow (Nothing :: Maybe HyperdataAnnuaire)
-
 
 flowCorpusUser :: (FlowCmdM env ServantErr m, MkCorpus c)
                => Lang -> Username -> CorpusName -> Maybe c -> [NodeId] -> m CorpusId

src/Gargantext/Database/Flow/Annuaire.hs

@@ -34,5 +34,5 @@ flowAnnuaire filePath = do
       $ map (\h-> ToDbContact h)
       $ map addUniqIdsContact contacts
   printDebug "length annuaire" ps
-
+-}
 

src/Gargantext/Text/Parsers/GrandDebat.hs

@@ -101,3 +101,6 @@ instance ReadFile [GrandDebatReference]
     --readFile fp = maybe [] identity <$> decode <$> DBL.readFile fp
     --readFile fp = either (panic . Text.pack) identity <$> P.eitherDecode <$> DBL.readFile fp
     readFile fp = P.parseLazyByteString (P.arrayOf P.value) <$> DBL.readFile fp
+
+
+