escaped literals

2023-02-09 10:35:20 +03:00 · 2023-02-09 10:35:20 +03:00 · 54377068aa
parent a9f72e3213
commit 54377068aa
1 changed files with 1 additions and 1 deletions
--- 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