~alcinnz/haskell-stylist

017da7083dab8fba1a42e9f9f1f20c19172fc121 — Adrian Cochrane 3 years ago fec99b1
Drop legacy FIXME regarding media query ratios.
1 files changed, 1 insertions(+), 1 deletions(-)

M src/Data/CSS/Preprocessor/Conditions/Expr.hs
M src/Data/CSS/Preprocessor/Conditions/Expr.hs => src/Data/CSS/Preprocessor/Conditions/Expr.hs +1 -1
@@ 86,7 86,7 @@ eval' stack v t (Var name:ops) = eval' (v name:stack) v t ops
-- Have tokens lower to variables, to make things easier for the callee.
eval' stack v t (Tok tok:ops) | t tok /= B False = eval' (t tok:stack) v t ops
eval' stack v t (Tok (Ident name):ops) = eval' (v name:stack) v t ops
-- TODO: How should I handle ratios?
-- Ratios should be compared as floating point...
eval' (N y:N x:stack) v t (MkRatio:ops) = eval' (N (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' (R _ y:N x:stack) v t (Less:ops) = eval' (B (x < y):stack) v t ops