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
  17 ------------------------------------------------------------------------
  18 -- | Language of a Text
  19 -- For simplicity, we suppose text has an homogenous language
  20 --
  21 -- Next steps: | DE | IT | SP
  22 --
  23 --  - EN == english
  24 --  - FR == french
  25 --  - DE == deutch  (not implemented yet)
  26 --  - IT == italian (not implemented yet)
  27 --  - SP == spanish (not implemented yet)
  28 --
  29 --  ... add your language and help us to implement it (:
  30
  31 -- | All languages supported
  32 -- TODO : DE | SP | CH
  33 data Lang = EN | FR
  34   deriving (Show, Eq, Ord, Bounded, Enum)
  35
  36
  37 allLangs :: [Lang]
  38 allLangs = [minBound ..]