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