src-test/Ngrams/Lang.hs

   1
   2 {-|
   3 Module      : Ngrams.Lang
   4 Description :
   5 Copyright   : (c) CNRS, 2017-Present
   6 License     : AGPL + CECILL v3
   7 Maintainer  : team@gargantext.org
   8 Stability   : experimental
   9 Portability : POSIX
  10
  11 Here is a longer description of this module, containing some
  12 commentary with @some markup@.
  13 -}
  14
  15 {-# LANGUAGE NoImplicitPrelude #-}
  16
  17 module Ngrams.Lang where
  18
  19 import Gargantext.Prelude (IO())
  20
  21 import Gargantext.Types.Main (Language(..))
  22 import qualified Ngrams.Lang.Fr as Fr
  23 import qualified Ngrams.Lang.En as En
  24
  25 ngramsExtractionTest :: Language -> IO ()
  26 ngramsExtractionTest FR = Fr.ngramsExtractionTest
  27 ngramsExtractionTest EN = En.ngramsExtractionTest
  28