diff --git a/parser.hs b/parser.hs
index 89c2c63..6c0c0ad 100644
--- a/parser.hs
+++ b/parser.hs
@@ -46,6 +46,7 @@ stringLiteral = do
 	char '"'
 	x <- many stringChar
 	char '"'
+	whiteSpace
 	return x
 
 block = do