1 files changed, 4 insertions(+), 4 deletions(-)

M 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