From 62a011934dd10f195d6ffccf931a02894f3246de Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Mon, 20 Jan 2025 12:15:03 +0300
Subject: [PATCH] suckless-conf, the fixme-new fuckup unfucked

---
 .../suckless-conf/lib/Data/Config/Suckless/Syntax.hs          | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Syntax.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Syntax.hs
index 10c4f114..75fa4a21 100644
--- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Syntax.hs
+++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Syntax.hs
@@ -87,13 +87,13 @@ stringLike :: Syntax c -> Maybe String
 stringLike = \case
   LitStrVal s -> Just $ Text.unpack s
   SymbolVal (Id s) -> Just $ Text.unpack s
-  x -> Just $ show $ pretty x
+  _ -> Nothing
 
 textLike :: Syntax c -> Maybe Text
 textLike = \case
   LitStrVal s -> Just s
   SymbolVal (Id s) -> Just s
-  x -> Just $ Text.pack $ show $ pretty x
+  x -> Nothing
 
 stringLikeList :: [Syntax c] -> [String]
 stringLikeList syn = [ stringLike s | s <- syn ] & takeWhile isJust & catMaybes