{-# LANGUAGE OverloadedStrings #-}
module Data.Validator.I18n.Message where

import           Data.Text    (Text)
import qualified Data.Text as T

-- TODO Должно предоставить пользователю возможность добавлять свои сообщения
data ValidationMessage = MsgWhitespacesOnly
                       | MsgValueRequired
                       | MsgWrongEmail
                       deriving (Show, Eq)

russianValidationMessage :: ValidationMessage -> Text
russianValidationMessage MsgWhitespacesOnly =
        "Значение не может состоять только из пробелов"
russianValidationMessage MsgValueRequired = "Эти данные необходимы"
russianValidationMessage MsgWrongEmail = "Неверный адрес эл.почты"

englishValidationMessage :: ValidationMessage -> Text
englishValidationMessage MsgWhitespacesOnly =
        "Whitespace only value is not allowed"
englishValidationMessage MsgValueRequired = "This value is required"
englishValidationMessage MsgWrongEmail = "Wrong email address"

defaultValidationMessage :: ValidationMessage -> Text
defaultValidationMessage = englishValidationMessage


--------------------------------------------------------------------------------