Add end pos to readSingleQuoted

This commit is contained in:
Ng Zhi An 2018-06-07 23:09:59 -07:00
parent 29e8c0a16e
commit 8ff35fb4af
1 changed files with 1 additions and 0 deletions

View File

@ -1097,6 +1097,7 @@ readSingleQuoted = called "single quoted string" $ do
when ('\n' `elem` string && not ("\n" `isPrefixOf` string)) $
suggestForgotClosingQuote startPos endPos "single quoted string"
endPosOfStartId id
return (T_SingleQuoted id string)
readSingleQuotedLiteral = do