Skip to content

haskell-gargantext
haskell-gargantext
Commit 9bdcbf15 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Ngrams Extraction without verbs

parent 6023449c
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 4 deletions
src/Gargantext/Core/Text/Terms/Multi/Group.hs
View file @ 9bdcbf15
...@@ -31,5 +31,3 @@ group2 _ _ [x@(TokenTag _ _ (Just _) _)] = [x] ...@@ -31,5 +31,3 @@ group2 _ _ [x@(TokenTag _ _ (Just _) _)] = [x]
group2 p1 p2 (x@(TokenTag _ _ (Just _) _):y@(TokenTag _ _ Nothing _):z) = (x:y: group2 p1 p2 (y:z)) group2 p1 p2 (x@(TokenTag _ _ (Just _) _):y@(TokenTag _ _ Nothing _):z) = (x:y: group2 p1 p2 (y:z))
group2 _ _ [] = [] group2 _ _ [] = []
src/Gargantext/Core/Text/Terms/Multi/Lang/En.hs
View file @ 9bdcbf15
...@@ -25,7 +25,7 @@ import Gargantext.Core.Text.Terms.Multi.Group ...@@ -25,7 +25,7 @@ import Gargantext.Core.Text.Terms.Multi.Group
groupTokens :: [TokenTag] -> [TokenTag] groupTokens :: [TokenTag] -> [TokenTag]
groupTokens [] = [] groupTokens [] = []
groupTokens ntags = group2 NP NP groupTokens ntags = group2 NP NP
$ group2 NP VB -- $ group2 NP VB
-- $ group2 NP IN -- $ group2 NP IN
$ group2 IN DT $ group2 IN DT
-- $ group2 VB NP -- $ group2 VB NP
......
src/Gargantext/Core/Text/Terms/Multi/Lang/Fr.hs
View file @ 9bdcbf15
...@@ -24,7 +24,7 @@ import Gargantext.Core.Text.Terms.Multi.Group (group2) ...@@ -24,7 +24,7 @@ import Gargantext.Core.Text.Terms.Multi.Group (group2)
groupTokens :: [TokenTag] -> [TokenTag] groupTokens :: [TokenTag] -> [TokenTag]
groupTokens [] = [] groupTokens [] = []
groupTokens ntags = group2 NP NP groupTokens ntags = group2 NP NP
$ group2 NP VB -- $ group2 NP VB
-- group2 NP IN -- group2 NP IN
-- group2 IN DT -- group2 IN DT
$ group2 VB NP $ group2 VB NP
......
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