Commit a06badd4 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] workflow.

parent 178d4434
......@@ -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)
......
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment