Parse whitespace following string literals.

Author: robrix

semantic-core/src/Data/Core/Parser.hs

@@ -109,7 +109,7 @@ lit = let x `given` n = x <$ reserved n in choice
   , Core.bool False `given` "#false"
   , Core.unit       `given` "#unit"
   , record
-  , between (string "\"") (string "\"") (Core.string . fromString <$> many (escape <|> (noneOf "\"" <?> "non-escaped character")))
+  , token (between (string "\"") (string "\"") (Core.string . fromString <$> many (escape <|> (noneOf "\"" <?> "non-escaped character"))))
   ] <?> "literal"
   where escape = char '\\' *> choice
           [ '"'  <$ string "\""