1
2
3
4
5
6
7
8
9
10
11
|
module Persistence.Util
( formatKeyForSearch
) where
import Data.Text (Text)
formatKeyForSearch :: Text -> Text
formatKeyForSearch key =
"replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(lower("
<> key
<> "), 'à', 'a'), 'â', 'a'), 'ç', 'c'), 'è', 'e'), 'é', 'e'), 'ê', 'e'), 'ë', 'e'), 'î', 'i'), 'ï', 'i'), 'ô', 'o'), 'ù', 'u'), 'û', 'u'), 'ü', 'u')"
|
