summaryrefslogtreecommitdiff
path: root/indexing/hsindex/src/HsIndex/CharLists/Russian.hs
blob: 1e9c3c96dcd01fc32d625ca04465894ca82cfef1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
-- |
-- Module      :  HsIndex.CharLists.Russian
-- Copyright   :  Jean-Luc JOULIN 2018-2019
-- License     :  General Public Licence (GPLv3)
-- Maintainer  :  Jean-Luc JOULIN  <jean-luc-joulin@orange.fr>
-- Stability   :  alpha
-- Portability :  portable
-- The letters, numbers and symbol definition for the russian language.


module HsIndex.CharLists.Russian where

import           HsIndex.Functions
import           HsIndex.Types
import           HsIndex.CharLists.Symbols

ordRussian = lstCyrillic

ordRussianUpperLower = upperLower lstCyrillic

-- | List of cyrillic characters.
lstCyrillic =
  [ 'а'
  , 'б'
  , 'в'
  , 'г'
  , 'д'
  , 'е'
  , 'ё'
  , 'ж'
  , 'з'
  , 'и'
  , 'й'
  , 'к'
  , 'л'
  , 'м'
  , 'н'
  , 'о'
  , 'п'
  , 'р'
  , 'с'
  , 'т'
  , 'у'
  , 'ф'
  , 'х'
  , 'ц'
  , 'ч'
  , 'ш'
  , 'щ'
  , 'ъ'
  , 'ы'
  , 'ь'
  , 'э'
  , 'ю'
  , 'я'
  ]





lettersRussian = lstCyrillic

langDefRussian = LangDef
  { lstLetters  = lstSpace ++ ordRussianUpperLower
  , lstNumbers  = lstDigit
  , lstSymbols  = Nothing
  , lstSubs     = []
  , lstSecOrder = [Symbols, Numbers, Letters]
  }