Commit 04284d2a authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] Add langs

parent f027bd5e
Pipeline #3917 failed with stage
in 0 seconds
...@@ -23,18 +23,33 @@ here = R2.here "Gargantext.Components.Lang" ...@@ -23,18 +23,33 @@ here = R2.here "Gargantext.Components.Lang"
-- Language used for search -- Language used for search
allLangs :: Array Lang allLangs :: Array Lang
allLangs = [ EN allLangs = [ Universal
, FR , No_extraction
, DE , DE
, EL
, EN
, ES , ES
, FR
, IT , IT
, PL , PL
, CN , PT
, Universal , RU
, No_extraction , UK
, ZH
] ]
data Lang = CN | DE | EN | ES | FR | IT | PL | Universal | No_extraction data Lang = Universal | No_extraction
| DE
| EL
| EN
| ES
| FR
| IT
| PL
| PT
| RU
| UK
| ZH
derive instance Generic Lang _ derive instance Generic Lang _
derive instance Ord Lang derive instance Ord Lang
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment