src/Gargantext/Ngrams/List.hs

   1 module Gargantext.Ngrams.List where
   2
   3 import Data.Maybe
   4 import Data.List (filter)
   5 import Gargantext.Ngrams
   6 import Gargantext.Prelude
   7
   8 graph :: [Ngrams] -> [Ngrams]
   9 graph ngs = filter (\ng -> _ngramsListName ng == Just Graph) ngs
  10
  11 candidates :: [Ngrams] -> [Ngrams]
  12 candidates ngs = filter (\ng -> _ngramsListName ng == Just Candidate) ngs
  13
  14 stop :: [Ngrams] -> [Ngrams]
  15 stop ngs = filter (\ng -> _ngramsListName ng == Just Stop) ngs
  16