From 87e471d483acf9a724a570fd2b1029cd49575380 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Tue, 6 Jun 2023 15:01:32 +1200
Subject: [PATCH] Add shorthand property parsing.

---
 lib/Graphics/Rendering/Rect/CSS.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Graphics/Rendering/Rect/CSS.hs b/lib/Graphics/Rendering/Rect/CSS.hs
index 4256f7c..0cc0100 100644
--- a/lib/Graphics/Rendering/Rect/CSS.hs
+++ b/lib/Graphics/Rendering/Rect/CSS.hs
@@ -18,6 +18,7 @@ instance PropertyParser RectStyle where
     }
 
     shorthand self key value
+        | ret@(_:_) <- shorthand (backgrounds self) key value = ret
         | Just _ <- longhand self self key value = [(key, value)]
         | otherwise = []
     longhand parent self key value
-- 
2.30.2