Skip to content

P
purescript-gargantext
Unverified Commit a05aeb4f authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

Corpus.Document: complete the findNgram function

parent 1966109a
Show whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
src/Gargantext/Components/Annotation/AnnotatedField.purs
View file @ a05aeb4f
...@@ -12,7 +12,8 @@ ...@@ -12,7 +12,8 @@
module Gargantext.Components.Annotation.AnnotatedField where module Gargantext.Components.Annotation.AnnotatedField where
import Prelude import Prelude
import Data.Map as Map import Data.Lens ((^?), _Just)
import Data.Lens.At (at)
import Data.Maybe ( Maybe(..), maybe, maybe' ) import Data.Maybe ( Maybe(..), maybe, maybe' )
import Data.Tuple ( Tuple(..) ) import Data.Tuple ( Tuple(..) )
import Data.Tuple.Nested ( (/\) ) import Data.Tuple.Nested ( (/\) )
...@@ -90,7 +91,7 @@ maybeShowMenu setMenu setTermList ngrams event = do ...@@ -90,7 +91,7 @@ maybeShowMenu setMenu setTermList ngrams event = do
Nothing -> pure unit Nothing -> pure unit
findNgram :: NgramsTable -> String -> Maybe TermList findNgram :: NgramsTable -> String -> Maybe TermList
findNgram _ _ = Nothing findNgram (NgramsTable m) s = m ^? at s <<< _Just <<< _NgramsElement <<< _list
-- Runs -- Runs
......
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