diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs index 75f96588..326d85b0 100644 --- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs +++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs @@ -1693,7 +1693,7 @@ internalEntries = do [SymbolVal "_", b] ->do if bf6TypeOfPred pred == bf6TypeOf b then pure b else pure nil - [a, b] | bf6TypeOfPred pred == bf6TypeOf b -> do + [a@(Literal _ _), b] | bf6TypeOfPred pred == bf6TypeOf b -> do if a == b then pure b else pure nil [a,b] -> do