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

suckless-conf, the fixme-new fuckup unfucked

This commit is contained in:
voidlizard 2025-01-20 12:15:03 +03:00
parent 00e24115ec
commit 62a011934d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Syntax.hs
View File

@ -87,13 +87,13 @@ stringLike :: Syntax c -> Maybe String
stringLike = \case stringLike = \case
LitStrVal s -> Just $ Text.unpack s LitStrVal s -> Just $ Text.unpack s
SymbolVal (Id s) -> Just $ Text.unpack s SymbolVal (Id s) -> Just $ Text.unpack s
x -> Just $ show $ pretty x _ -> Nothing
textLike :: Syntax c -> Maybe Text textLike :: Syntax c -> Maybe Text
textLike = \case textLike = \case
LitStrVal s -> Just s LitStrVal s -> Just s
SymbolVal (Id s) -> Just s SymbolVal (Id s) -> Just s
x -> Just $ Text.pack $ show $ pretty x x -> Nothing
stringLikeList :: [Syntax c] -> [String] stringLikeList :: [Syntax c] -> [String]
stringLikeList syn = [ stringLike s | s <- syn ] & takeWhile isJust & catMaybes stringLikeList syn = [ stringLike s | s <- syn ] & takeWhile isJust & catMaybes