From 83daa6d33bcbde404e89a8bee52bdef312ece541 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 17 Mar 2023 10:35:38 +1300
Subject: [PATCH] Fix for mixed-child elements on stripping out extraneous
 whitespace.

---
 Graphics/Layout/CSS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Graphics/Layout/CSS.hs b/Graphics/Layout/CSS.hs
index 489df6d..c51e8a9 100644
--- a/Graphics/Layout/CSS.hs
+++ b/Graphics/Layout/CSS.hs
@@ -204,7 +204,7 @@ finalizeChilds root parent childs@(child:childs')
         -- FIXME propagate display properties, how to handle the hierarchy.
         [LayoutInline temp parent self (repeat temp)]
     | (inlines@(_:_), blocks) <- spanInlines childs,
-        Just self <- finalizeParagraph (flattenTree childs) parent  =
+        Just self <- finalizeParagraph (flattenTree inlines) parent  =
             LayoutInline temp parent self [] : finalizeChilds root parent blocks
     | (StyleTree { style = CSSBox { display = Inline } }:childs') <- childs =
         finalizeChilds root parent childs' -- Inline's all whitespace...
-- 
2.30.2