[VERSION] +1 to 0.0.6.8.5.1

CHANGELOG.md

+## Version 0.0.6.8.5.1
+
+* [BACK][FIX] ArXiv search in Abstracts by default
+
 ## Version 0.0.6.8.5
 * [BACK][FIX][Ngrams Table, page sort / limit (#149)](https://gitlab.iscpif.fr/gargantext/haskell-gargantext/issues/149)
 * [FRONT][FIX][Security Issue with Teams (#452)](https://gitlab.iscpif.fr/gargantext/purescript-gargantext/issues/452)

gargantext.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           gargantext
-version:        0.0.6.8.5
+version: 0.0.6.8.5.1
 synopsis:       Search, map, share
 description:    Please see README.md
 category:       Data

package.yaml

@@ -6,7 +6,7 @@ name: gargantext
 #         | | | +-----  Layers * : New versions with API additions
 #         | | | | +---  Layers * : New versions without API breaking changes
 #         | | | | |
-version: '0.0.6.8.5'
+version: '0.0.6.8.5.1'
 synopsis: Search, map, share
 description: Please see README.md
 category: Data

src/Gargantext/API/Ngrams/List.hs

@@ -130,26 +130,23 @@ reIndexWith :: ( HasNodeStory env err m
             -> Set ListType
             -> m ()
 reIndexWith cId lId nt lts = do
+  printDebug "(cId,lId,nt,lts)" (cId, lId, nt, lts)
+
   -- Getting [NgramsTerm]
   ts <- List.concat
      <$> map (\(k,vs) -> k:vs)
      <$> HashMap.toList
      <$> getTermsWith identity [lId] nt lts
 
-  -- printDebug "ts" ts
-
-  -- Taking the ngrams with 0 occurrences only (orphans)
-  -- occs <- getOccByNgramsOnlyFast' cId lId nt ts
-
-  -- printDebug "occs" occs
 
   let orphans = ts {- List.concat
               $ map (\t -> case HashMap.lookup t occs of
                        Nothing -> [t]
                        Just n  -> if n <= 1 then [t] else [ ]
                        ) ts
-        -}
-  -- printDebug "orphans" orphans
+                   -}
+
+  printDebug "orphans" orphans
 
   -- Get all documents of the corpus
   docs <- selectDocNodes cId
@@ -171,12 +168,12 @@ reIndexWith cId lId nt lts = do
                                  (List.cycle [Map.fromList $ [(nt, Map.singleton (doc ^. context_id) 1 )]])
                         ) docs
 
-  -- printDebug "ngramsByDoc" ngramsByDoc
+  printDebug "ngramsByDoc: " ngramsByDoc
 
   -- Saving the indexation in database
   _ <- mapM (saveDocNgramsWith lId) ngramsByDoc
 
-  pure () -- ngramsByDoc
+  pure ()
 
 toIndexedNgrams :: HashMap Text NgramsId -> Text -> Maybe (Indexed Int Ngrams)
 toIndexedNgrams m t = Indexed <$> i <*> n

src/Gargantext/Core/Text/Terms/WithList.hs

@@ -49,12 +49,13 @@ replaceTerms pats terms = go 0
         Just (len, term) ->
           term : go (ix + len)
 
-
+{-
     merge (len1, lab1) (len2, lab2) =
       if len2 < len1 then (len1, lab1) else (len2, lab2)
-
+-}
     m =
-      IntMap.fromListWith merge
+      -- IntMap.fromListWith merge -- Taking the longer ngrams only
+      IntMap.fromList
         [ (ix, (len, term))
         | Pattern pat len term <- pats, ix <- KMP.match pat terms ]