From 7abbe00f1ba2a95d886947cd56e3cb222806f69b Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 16 Mar 2023 17:16:29 +1300
Subject: [PATCH] Repair logic for determining whether elements are inline.

---
 Graphics/Layout/CSS.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Graphics/Layout/CSS.hs b/Graphics/Layout/CSS.hs
index c3da204..a4886b1 100644
--- a/Graphics/Layout/CSS.hs
+++ b/Graphics/Layout/CSS.hs
@@ -37,7 +37,7 @@ rowContainer CSSBox { display = d } =
 instance PropertyParser a => PropertyParser (CSSBox a) where
     temp = CSSBox {
         boxSizing = ContentBox,
-        display = Block,
+        display = Inline,
         cssBox = PaddedBox {
             B.min = Size auto auto,
             size = Size auto auto,
@@ -209,7 +209,7 @@ finalizeChilds root parent childs@(child:childs')
             :finalizeChilds root parent blocks
     | otherwise = finalizeCSS root parent child : finalizeChilds root parent childs'
   where
-    isInlineTree = all (isInlineTree . children)
+    isInlineTree = all isInlineTree0
     isInlineTree0 StyleTree { style = CSSBox { display = Inline }, children = childs } =
         isInlineTree childs
     isInlineTree0 _ = False
-- 
2.30.2