Externalize error messages

This commit is contained in:
Eike Kettner
2021-04-17 11:14:29 +02:00
parent c9b54e80b7
commit b2cffb22ef
65 changed files with 1518 additions and 683 deletions

View File

@ -1,6 +1,8 @@
module Messages.Comp.PersonManage exposing (Texts, gb)
import Http
import Messages.Basics
import Messages.Comp.HttpError
import Messages.Comp.PersonForm
import Messages.Comp.PersonTable
@ -9,10 +11,12 @@ type alias Texts =
{ basics : Messages.Basics.Texts
, personForm : Messages.Comp.PersonForm.Texts
, personTable : Messages.Comp.PersonTable.Texts
, httpError : Http.Error -> String
, newPerson : String
, createNewPerson : String
, reallyDeletePerson : String
, deleteThisPerson : String
, correctFormErrors : String
}
@ -21,8 +25,10 @@ gb =
{ basics = Messages.Basics.gb
, personForm = Messages.Comp.PersonForm.gb
, personTable = Messages.Comp.PersonTable.gb
, httpError = Messages.Comp.HttpError.gb
, newPerson = "New Person"
, createNewPerson = "Create a new person"
, reallyDeletePerson = "Really delete this person?"
, deleteThisPerson = "Delete this person"
, correctFormErrors = "Please correct the errors in the form."
}