src/Gargantext/Text/Terms/Lists.hs

   1 {-|
   2 Module      : Gargantext.Text.Ngrams.Lists
   3 Description :
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 Here is a longer description of this module, containing some
  11 commentary with @some markup@.
  12 -}
  13
  14 {-# LANGUAGE NoImplicitPrelude #-}
  15
  16 module Gargantext.Text.Terms.Lists
  17   where
  18
  19 --import Data.Maybe
  20 --import Data.List (filter)
  21 --import Gargantext.Text
  22 import Gargantext.Prelude
  23 --
  24
  25 data ListName = Stop | Candidate | Graph
  26   deriving (Show, Eq)
  27
  28
  29 --graph :: [Ngrams] -> [Ngrams]
  30 --graph ngs = filter (\ng -> _ngramsListName ng == Just Graph) ngs
  31 --
  32 --candidates :: [Ngrams] -> [Ngrams]
  33 --candidates ngs = filter (\ng -> _ngramsListName ng == Just Candidate) ngs
  34 --
  35 --stop :: [Ngrams] -> [Ngrams]
  36 --stop ngs = filter (\ng -> _ngramsListName ng == Just Stop) ngs
  37
  38