mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-23 02:48:26 +00:00
Externalize strings in manage-data page
This commit is contained in:
@ -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
|
||||
|
@ -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 ]
|
||||
|
@ -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 ]
|
||||
|
@ -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 ]
|
||||
|
Reference in New Issue
Block a user