src/Gargantext/Core.hs

   1 {-|
   2 Module      : Gargantext.Core
   3 Description : Supported Natural language
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 -}
  11
  12 module Gargantext.Core
  13   where
  14
  15 ------------------------------------------------------------------------
  16 -- | Language of a Text
  17 -- For simplicity, we suppose text has an homogenous language
  18 --
  19 -- Next steps: | DE | IT | SP
  20 --
  21 --  - EN == english
  22 --  - FR == french
  23 --  - DE == deutch  (not implemented yet)
  24 --  - IT == italian (not implemented yet)
  25 --  - SP == spanish (not implemented yet)
  26 --
  27 --  ... add your language and help us to implement it (:
  28
  29 -- | All languages supported
  30 -- TODO : DE | SP | CH
  31 data Lang = EN | FR
  32   deriving (Show, Eq, Ord, Bounded, Enum)
  33
  34
  35 allLangs :: [Lang]
  36 allLangs = [minBound ..]