From 40a23ea3639323e954c969e28583a5bd3ff6a023 Mon Sep 17 00:00:00 2001 From: Luca Magrone Date: Mon, 25 Aug 2025 23:20:58 +0200 Subject: [PATCH] smp server: fix missing web page information PR #1608 introduced a bug that made only some of the information about the server generated on the web page. Signed-off-by: Luca Magrone --- apps/smp-server/web/Static.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/apps/smp-server/web/Static.hs b/apps/smp-server/web/Static.hs index cf6d5834b..9b7a48741 100644 --- a/apps/smp-server/web/Static.hs +++ b/apps/smp-server/web/Static.hs @@ -237,8 +237,8 @@ section_ label content' src = (inside, next') -> let next = B.drop (B.length endMarker) next' in case content' of - Just content | not (B.null content) -> before <> item_ label content inside <> section_ label content' next - _ -> before <> next -- collapse section + Nothing -> before <> next -- collapse section + Just content -> before <> item_ label content inside <> section_ label content' next where startMarker = " label <> ">" endMarker = " label <> ">"