diff options
Diffstat (limited to 'stdlib/source/lux/world/internationalization/territory.lux')
| -rw-r--r-- | stdlib/source/lux/world/internationalization/territory.lux | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/stdlib/source/lux/world/internationalization/territory.lux b/stdlib/source/lux/world/internationalization/territory.lux index 9094fcae6..ece06b9d6 100644 --- a/stdlib/source/lux/world/internationalization/territory.lux +++ b/stdlib/source/lux/world/internationalization/territory.lux @@ -1,9 +1,10 @@ (.module: [lux #* + [control + [equivalence (#+ Equivalence)] + [hash (#+ Hash)]] [data - [text - format - ["." encoding (#+ Char-Set)]]] + ["." text]] [type abstract] ["." macro]]) @@ -292,4 +293,16 @@ ["ZM" "ZMB" 894 "Zambia" zambia []] ["ZW" "ZWE" 716 "Zimbabwe" zimbabwe []] ) + + (structure: #export _ (Equivalence Territory) + (def: (= reference sample) + (is? reference sample))) + + (structure: #export _ (Hash Territory) + (def: eq Equivalence<Territory>) + + (def: hash + (|>> :representation + (get@ #long) + (:: text.Hash<Text> hash)))) ) |