tail behavour for string-like

2025-03-08 09:24:38 +03:00 · 2025-03-08 09:24:38 +03:00 · 1c4b9e7971
parent cc001b0451
commit 1c4b9e7971
1 changed files with 5 additions and 0 deletions
--- 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"