Reorganize messages to reflect page structure

This commit is contained in:
Eike Kettner
2021-04-10 00:30:42 +02:00
parent fa2c5750dd
commit 7c43fa0874
165 changed files with 585 additions and 586 deletions

View File

@ -0,0 +1,19 @@
module Messages.Data.PersonUse exposing (..)
import Data.PersonUse exposing (PersonUse(..))
gb : PersonUse -> String
gb pu =
case pu of
Correspondent ->
"Correspondent"
Concerning ->
"Concerning"
Both ->
"Both"
Disabled ->
"Disabled"