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

M lib/Graphics/Rendering/Rect/CSS/Colour.hs

@@ 234,8 234,8 @@ parseColour _ (Ident x:toks) | Just x' <- inner $ Txt.toLower x =
 parseColour _ (Ident x:toks) | Txt.toLower x == "transparent" =
     Just (toks, transparent)
 -- FIXME: Add infrastructure to prioritize resolving `color`
-parseColour self (Ident x:toks)
-    | Txt.toLower x `elem` ["currentcolor","initial"]=Just (toks,foreground self)
+parseColour self@ColourPallet { foreground = colour} (Ident x:toks)
+    | Txt.toLower x `elem` ["currentcolor", "initial"] = Just (toks, colour)
     | Txt.toLower x == "accentcolor" = Just (toks, accent self)
 
 parseColour _ (Function "hsl":h':Comma: