From a5c44a37722bde7bb37488b33294132b4974ef3c Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 16 Mar 2023 14:10:47 +1300
Subject: [PATCH] Correct `display: initial` to being `inline` rather than
 `block`.

---
 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 ed97ea1..3b89552 100644
--- a/Graphics/Layout/CSS.hs
+++ b/Graphics/Layout/CSS.hs
@@ -133,7 +133,7 @@ instance PropertyParser a => PropertyParser (CSSBox a) where
     longhand CSSBox { display = Table } self "display" [Ident "table-caption"] =
         Just self { display=TableCaption }
     longhand _ self "display" [Ident "inline"] = Just self { display = Inline }
-    longhand _ self "display" [Ident "initial"] = Just self { display = Block }
+    longhand _ self "display" [Ident "initial"] = Just self { display = Inline }
 
     longhand _ self "caption-side" [Ident "top"] = Just self { captionBelow = False }
     longhand _ self "caption-side" [Ident "bottom"] = Just self { captionBelow = True }
-- 
2.30.2