From 54377068aac95cbfd8c69177a101c434feecff41 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 9 Feb 2023 10:35:20 +0300 Subject: [PATCH] escaped literals --- lib/Data/Config/Suckless/Parse/Megaparsec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Data/Config/Suckless/Parse/Megaparsec.hs b/lib/Data/Config/Suckless/Parse/Megaparsec.hs index ec59249..dc0ca59 100644 --- a/lib/Data/Config/Suckless/Parse/Megaparsec.hs +++ b/lib/Data/Config/Suckless/Parse/Megaparsec.hs @@ -65,7 +65,7 @@ stringLit sp = L.lexeme sp $ do where str = do 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! intLit :: forall c . MegaConstraints c