diff options
author | stuebinm | 2024-04-20 03:18:46 +0200 |
---|---|---|
committer | stuebinm | 2024-04-20 03:18:46 +0200 |
commit | 607b9486a81ed6cb65d30227aeecea3412bd1ccd (patch) | |
tree | 0bfde1a39d2af5e56d53dbaea05638458c478de5 /lib/MultiLangText.hs | |
parent | 9301b4b012d3cae1a481320b1460c5bea674fd8c (diff) |
restructure: have "tickets" independent of gtfs
this is mostly meant to guard against the gtfs changing under
tracktrain, and not yet complete (e.g. a ticket does not yet save its
expected stops, which it probably should).
Diffstat (limited to '')
-rw-r--r-- | lib/MultiLangText.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/MultiLangText.hs b/lib/MultiLangText.hs new file mode 100644 index 0000000..4cd3fc3 --- /dev/null +++ b/lib/MultiLangText.hs @@ -0,0 +1,12 @@ + +-- | simple translated text +module MultiLangText (MultiLangText, monolingual) where + +import Data.Map (Map, singleton) +import Data.Text (Text) +import Text.Shakespeare.I18N (Lang) + +type MultiLangText = Map Lang Text + +monolingual :: Lang -> Text -> MultiLangText +monolingual = singleton |