From d5c5ddeb3e171a82e25147b1dedcba1a2fbbc3fc Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Tue, 10 Sep 2019 07:30:31 +1200
Subject: [PATCH] Media queries: fix popping two items off stack.

I forgot that FIFO reversed the order of the list.
---
 src/Data/CSS/Preprocessor/Conditions/Expr.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/Data/CSS/Preprocessor/Conditions/Expr.hs b/src/Data/CSS/Preprocessor/Conditions/Expr.hs
index 8e691f6..b3e20b6 100644
--- a/src/Data/CSS/Preprocessor/Conditions/Expr.hs
+++ b/src/Data/CSS/Preprocessor/Conditions/Expr.hs
@@ -64,19 +64,19 @@ eval :: (Text -> Datum) -> (Token -> Datum) -> Expr -> Bool
 eval = eval' []
 
 eval' :: [Datum] -> (Text -> Datum) -> (Token -> Datum) -> Expr -> Bool
-eval' (B x:B y:stack) v t (And:ops) = eval' (B (x && y):stack) v t ops
-eval' (B x:B y:stack) v t (Or:ops) = eval' (B (x || y):stack) v t ops
+eval' (B y:B x:stack) v t (And:ops) = eval' (B (x && y):stack) v t ops
+eval' (B y:B x:stack) v t (Or:ops) = eval' (B (x || y):stack) v t ops
 eval' (B x:stack) v t (Not:ops) = eval' (B (not x):stack) v t ops
 eval' stack v t (Var name:ops) = eval' (v name:stack) v t ops
 eval' stack v t (Tok tok:ops) = eval' (t tok:stack) v t ops
 -- TODO: How should I handle ratios?
-eval' (N x:N y:stack) v t (MkRatio:ops) = eval' (Ratio x y:stack) v t ops
+eval' (N y:N x:stack) v t (MkRatio:ops) = eval' (Ratio x y:stack) v t ops
 eval' _ _ _ (Func _ _:_) = False -- Unsupported here, parser used elsewhere
-eval' (N x:N y:stack) v t (Less:ops) = eval' (B (x < y):stack) v t ops
-eval' (N x:N y:stack) v t (LessEq:ops) = eval' (B (x <= y):stack) v t ops
-eval' (x:y:stack) v t (Equal:ops) = eval' (B (x == y):stack) v t ops
-eval' (N x:N y:stack) v t (Greater:ops) = eval' (B (x > y):stack) v t ops
-eval' (N x:N y:stack) v t (GreaterEq:ops) = eval' (B (x >= y):stack) v t ops
+eval' (N y:N x:stack) v t (Less:ops) = eval' (B (x < y):stack) v t ops
+eval' (N y:N x:stack) v t (LessEq:ops) = eval' (B (x <= y):stack) v t ops
+eval' (y:x:stack) v t (Equal:ops) = eval' (B (x == y):stack) v t ops
+eval' (N y:N x:stack) v t (Greater:ops) = eval' (B (x > y):stack) v t ops
+eval' (N y:N x:stack) v t (GreaterEq:ops) = eval' (B (x >= y):stack) v t ops
 eval' (B ret:_) _ _ [] = ret
 eval' [] _ _ [] = True -- Special case
 eval' _ _ _ _ = False -- Error handling fallback.
-- 
2.30.2