Externalize strings in manage-data page

This commit is contained in:
Eike Kettner
2021-04-04 15:55:49 +02:00
parent 8f1380fcf5
commit 594818499e
57 changed files with 1078 additions and 379 deletions

View File

@ -3,7 +3,6 @@ module Data.CustomFieldType exposing
, all
, asString
, fromString
, label
)
@ -39,25 +38,6 @@ asString ft =
"money"
label : CustomFieldType -> String
label ft =
case ft of
Text ->
"Text"
Numeric ->
"Numeric"
Date ->
"Date"
Boolean ->
"Boolean"
Money ->
"Money"
fromString : String -> Maybe CustomFieldType
fromString str =
case String.toLower str of

View File

@ -3,7 +3,6 @@ module Data.EquipmentUse exposing
, all
, asString
, fromString
, label
)
import Api.Model.Equipment exposing (Equipment)
@ -37,16 +36,6 @@ asString pu =
"disabled"
label : EquipmentUse -> String
label pu =
case pu of
Concerning ->
"Concerning"
Disabled ->
"Disabled"
all : List EquipmentUse
all =
[ Concerning, Disabled ]

View File

@ -3,7 +3,6 @@ module Data.OrgUse exposing
, all
, asString
, fromString
, label
)
@ -35,16 +34,6 @@ asString pu =
"disabled"
label : OrgUse -> String
label pu =
case pu of
Correspondent ->
"Correspondent"
Disabled ->
"Disabled"
all : List OrgUse
all =
[ Correspondent, Disabled ]

View File

@ -3,7 +3,6 @@ module Data.PersonUse exposing
, all
, asString
, fromString
, label
, spanPersonList
)
@ -52,22 +51,6 @@ asString pu =
"disabled"
label : PersonUse -> String
label pu =
case pu of
Correspondent ->
"Correspondent"
Concerning ->
"Concerning"
Both ->
"Both"
Disabled ->
"Disabled"
all : List PersonUse
all =
[ Correspondent, Concerning, Both, Disabled ]