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 0470cc4f..1f3f6700 100644 --- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs +++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs @@ -1248,6 +1248,11 @@ internalEntries = do [] -> pure nil [ListVal []] -> pure nil [ListVal es] -> pure $ mkList (tail es) + + [StringLike es] -> pure $ case tailSafe es of + [] -> nil + xs -> mkSym xs + _ -> throwIO (BadFormException @c nil) entry $ bindAlias "cdr" "tail"