fix whitespace after string literals

2013-10-20 16:21:41 -07:00 · 2013-10-20 16:21:41 -07:00 · 2851a60eb0
parent 17cfbce27d
commit 2851a60eb0
1 changed files with 1 additions and 0 deletions
--- a/parser.hs
+++ b/parser.hs
@ -46,6 +46,7 @@ stringLiteral = do
 	char '"'
 	x <- many stringChar
 	char '"'
+	whiteSpace
 	return x

 block = do