From 67f348bb09a6bff991c3089b0aa68b2a8f8ff6a0 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Tue, 16 May 2023 11:40:07 +1200
Subject: [PATCH] Add priority method to VarParser decorator.

---
 src/Data/CSS/Style.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Data/CSS/Style.hs b/src/Data/CSS/Style.hs
index 96d6160..5b93bd7 100644
--- a/src/Data/CSS/Style.hs
+++ b/src/Data/CSS/Style.hs
@@ -120,6 +120,7 @@ data VarParser a = VarParser {vars :: Props, innerParser :: a}
 instance PropertyParser p => PropertyParser (VarParser p) where
     temp = VarParser [] temp
     inherit (VarParser vars' self) = VarParser vars' $ inherit self
+    priority (VarParser _ self) = priority self
 
     shorthand self name' value
         | Function "var" `elem` value || "--" `isPrefixOf` name' = [(name', value)] -- Fail during inheritance...
-- 
2.30.2