[FIX] workflow.

src/Gargantext/Database/Flow.hs

@@ -159,14 +159,14 @@ flowCorpusUser l userName corpusName ctype ids = do
   _ <- Doc.add userCorpusId ids
 
   -- User List Flow
-  {-
-  (_masterUserId, _masterRootId, masterCorpusId) <- getOrMkRootWithCorpus userMaster ""
+  --{-
+  (_masterUserId, _masterRootId, masterCorpusId) <- getOrMkRootWithCorpus userMaster "" ctype
   ngs         <- buildNgramsLists l 2 3 (StopSize 3) userCorpusId masterCorpusId
   userListId  <- flowList userId userCorpusId ngs
   printDebug "userListId" userListId
   -- User Graph Flow
-  _ <- mkGraph     userCorpusId userId
-  -}
+  _ <- mkGraph  userCorpusId userId
+  --}
 
   -- User Dashboard Flow
   -- _ <- mkDashboard userCorpusId userId
@@ -239,6 +239,7 @@ getOrMkRootWithCorpus username cName c = do
 
 ------------------------------------------------------------------------
 
+
 class UniqId a
   where
     uniqId :: Lens' a (Maybe HashId)

src/Gargantext/Text/List.hs

@@ -119,4 +119,4 @@ toTermList stop ns =  map (toTermList' stop CandidateTerm) xs
 isStopTerm :: StopSize -> Text -> Bool
 isStopTerm (StopSize n) x = Text.length x < n || any isStopChar (Text.unpack x)
   where
-    isStopChar c = not (c `elem` ("- /()" :: [Char]) || Char.isAlpha c)
+    isStopChar c = not (c `elem` ("- /()%" :: [Char]) || Char.isAlpha c)