From 8880b12954c89968308b18a3ab6c2f50cbd948bc Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Thu, 30 Nov 2023 09:10:14 +1300 Subject: [PATCH] Minor fix to repair the testsuite! --- test/Test.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/Test.hs b/test/Test.hs index 381f1b9..133067e 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -279,8 +279,8 @@ spec = do previous = Nothing, attributes = [Attribute "class" "" "link"] } - let rules = parse (queryable {priority = [1]}) "a {color: green}" - let rules2 = parse (rules {priority = [2]}) "a {color: red}" :: QueryableStyleSheet (VarParser TrivialPropertyParser) + let rules = parse (queryable {priorities = [1]}) "a {color: green}" + let rules2 = parse (rules {priorities = [2]}) "a {color: red}" :: QueryableStyleSheet (VarParser TrivialPropertyParser) let VarParser _ (TrivialPropertyParser style) = cascade rules2 el [] temp::(VarParser TrivialPropertyParser) style ! "color" `shouldBe` [Ident "green"] @@ -291,8 +291,8 @@ spec = do previous = Nothing, attributes = [Attribute "class" "" "link"] } - let rules' = parse (queryable {priority = [1]}) "a {color: red}" - let rules2' = parse (rules' {priority = [2]}) "a {color: green !important}" :: QueryableStyleSheet (VarParser TrivialPropertyParser) + let rules' = parse (queryable {priorities = [1]}) "a {color: red}" + let rules2' = parse (rules' {priorities = [2]}) "a {color: green !important}" :: QueryableStyleSheet (VarParser TrivialPropertyParser) let VarParser _ (TrivialPropertyParser style') = cascade rules2' el' [] temp::(VarParser TrivialPropertyParser) style' ! "color" `shouldBe` [Ident "green"] it "respects overrides" $ do -- 2.30.2