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')"