voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

tail behavour for string-like

This commit is contained in:
voidlizard 2025-03-08 09:24:38 +03:00
parent cc001b0451
commit 1c4b9e7971
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
View File

@ -1248,6 +1248,11 @@ internalEntries = do
[] -> pure nil [] -> pure nil
[ListVal []] -> pure nil [ListVal []] -> pure nil
[ListVal es] -> pure $ mkList (tail es) [ListVal es] -> pure $ mkList (tail es)
[StringLike es] -> pure $ case tailSafe es of
[] -> nil
xs -> mkSym xs
_ -> throwIO (BadFormException @c nil) _ -> throwIO (BadFormException @c nil)
entry $ bindAlias "cdr" "tail" entry $ bindAlias "cdr" "tail"