diff --git a/src/Parser/Combinators/Lex.hs b/src/Parser/Combinators/Lex.hs
index 384a287..111f1dd 100644
--- a/src/Parser/Combinators/Lex.hs
+++ b/src/Parser/Combinators/Lex.hs
@@ -225,7 +225,7 @@ stringLiteral =
    where stringLiteral' :: Char -> Parser String
          stringLiteral' container =
             char container
-            *> some (try $ validGraphicChars container)
+            *> many (try $ validGraphicChars container)
             <* char container
          validGraphicChars container =
             (string (replicate 2 container) *> return container)