voidlizard
/
suckless-conf
mirror of https://github.com/voidlizard/suckless-conf.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

escaped literals

This commit is contained in:
Dmitry Zuikov 2023-02-09 10:35:20 +03:00
parent a9f72e3213
commit 54377068aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Data/Config/Suckless/Parse/Megaparsec.hs
View File

@ -65,7 +65,7 @@ stringLit sp = L.lexeme sp $ do
where where
str = do str = do
s <- dquot >> manyTill L.charLiteral dquot s <- dquot >> manyTill L.charLiteral dquot
pure $ Text.pack (mconcat [ showLitChar c "" | c <- s ]) pure $ Text.pack s -- (mconcat [ showLitChar c "" | c <- s ])
-- FIXME: position! -- FIXME: position!
intLit :: forall c . MegaConstraints c intLit :: forall c . MegaConstraints c