From a06badd44b2238fbb1f7524ca71f39ad61b1438d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Tue, 2 Apr 2019 13:39:32 +0200
Subject: [PATCH] [FIX] workflow.

---
 src/Gargantext/Database/Flow.hs | 9 +++++----
 src/Gargantext/Text/List.hs     | 2 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/Gargantext/Database/Flow.hs b/src/Gargantext/Database/Flow.hs
index 444e7c7f..9d1e3477 100644
--- a/src/Gargantext/Database/Flow.hs
+++ b/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)
diff --git a/src/Gargantext/Text/List.hs b/src/Gargantext/Text/List.hs
index 6f98ccdc..0fccb7ea 100644
--- a/src/Gargantext/Text/List.hs
+++ b/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)
-- 
2.21.0