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 <> ">"