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