From 1c4b9e797118bf15dc2874467b2dcfac74ff0879 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Sat, 8 Mar 2025 09:24:38 +0300
Subject: [PATCH] tail behavour for string-like

---
 .../lib/Data/Config/Suckless/Script/Internal.hs              | 5 +++++
 1 file changed, 5 insertions(+)

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"