From fa372d98e41605a81458a3bffda4892b94f8facb Mon Sep 17 00:00:00 2001 From: Stephane Bortzmeyer Date: Sun, 1 Oct 2023 16:05:58 +0200 Subject: [PATCH] Extensions and extlangs --- display-tag.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/display-tag.hs b/display-tag.hs index 28bcb5f..c61684c 100644 --- a/display-tag.hs +++ b/display-tag.hs @@ -50,7 +50,8 @@ variantToString registry v = toString :: Registry -> Tag -> String toString registry (Tag l el s r v e) = - -- TODO: display extlangs + -- Display extlangs. See issue #8 + -- Display extensions. See issue #7 l ++ ": " ++ langToString registry l ++ scriptToString registry s ++ regionToString registry r ++ variantsToString registry v