From 7939d78faa8bb9f6a91cc6ae171a6c94f6efc563 Mon Sep 17 00:00:00 2001 From: Stephane Bortzmeyer Date: Tue, 1 Aug 2023 20:23:50 +0200 Subject: [PATCH] Better HTML --- Registry/Utils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Registry/Utils.hs b/Registry/Utils.hs index 50cf35f..34a947f 100644 --- a/Registry/Utils.hs +++ b/Registry/Utils.hs @@ -167,7 +167,7 @@ html_head s = "\n

langtag.net Home

" linkLanguage langcode = if (length langcode) == 3 then - "See the SIL entry (if present)." else if (length langcode) == 2 then "" ++ s ++ "" prefixesToHTML a = concat (map oneprefixToHTML a) toHTML (Date d) = "

Date: " ++ dateToHTML d ++ "

" -toHTML (Lang l) = (html_head ((lang'descr l) !! 0)) ++ "

" ++ +toHTML (Lang l) = (html_head ((lang'descr l) !! 0)) ++ "

Code " ++ (lang'subtag l) ++ ". " ++ addedToHTML (lang'added l) ++ ". Description: " ++ descrToHTML (lang'descr l) ++ ". " ++