Skip to content

H
haskell-gargantext
Unverified Commit ea808e49 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

Tweak instance Arbitrary NgramsTable

parent 70a01c91
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 4 deletions
src/Gargantext/API/Ngrams.hs
View file @ ea808e49
...@@ -116,16 +116,15 @@ instance Arbitrary NgramsTable where ...@@ -116,16 +116,15 @@ instance Arbitrary NgramsTable where
[ NgramsTable [ NgramsTable
[ NgramsElement "animal" GraphList 1 Nothing (Set.fromList ["dog", "cat"]) [ NgramsElement "animal" GraphList 1 Nothing (Set.fromList ["dog", "cat"])
, NgramsElement "cat" GraphList 1 (Just "animal") mempty , NgramsElement "cat" GraphList 1 (Just "animal") mempty
, NgramsElement "cats" StopList 4 Nothing mempty
, NgramsElement "dog" GraphList 3 (Just "animal")(Set.fromList ["dogs"]) , NgramsElement "dog" GraphList 3 (Just "animal")(Set.fromList ["dogs"])
, NgramsElement "dogs" StopList 4 (Just "dog") mempty , NgramsElement "dogs" StopList 4 (Just "dog") mempty
, NgramsElement "fox" GraphList 1 Nothing mempty
, NgramsElement "object" CandidateList 2 Nothing mempty , NgramsElement "object" CandidateList 2 Nothing mempty
, NgramsElement "nothing" StopList 4 Nothing mempty , NgramsElement "nothing" StopList 4 Nothing mempty
] , NgramsElement "organic" GraphList 3 Nothing (Set.singleton "flower")
, NgramsTable
[ NgramsElement "organic" GraphList 3 Nothing (Set.singleton "flower")
, NgramsElement "flower" GraphList 3 (Just "organic") mempty , NgramsElement "flower" GraphList 3 (Just "organic") mempty
, NgramsElement "moon" CandidateList 1 Nothing mempty , NgramsElement "moon" CandidateList 1 Nothing mempty
, NgramsElement "cat" GraphList 2 Nothing mempty
, NgramsElement "sky" StopList 1 Nothing mempty , NgramsElement "sky" StopList 1 Nothing mempty
] ]
] ]
......
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