Do not move row or column when \r is seen in multi-line string
Fix https://github.com/elm/compiler/issues/1819
commit1308e3d62fcbc1dd1869770686838d9abeb01725
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateTue 20 Nov 2018, 22:28 (8 years ago)
parent6b0b52e
compiler/src/Parse/Primitives/Utf8.hs+1−1
@@ -217,7 +217,7 @@ multiString fp offset terminal row col initialOffset revChunks =
217217
218218 else if word == 0x0D {- \r -} then
219219 let !offset1 = offset + 1 in
220− multiString fp offset1 terminal (row + 1) 1 offset1 $
220+ multiString fp offset1 terminal row col offset1 $
221221 addEscape carriageReturn initialOffset offset revChunks
222222
223223 else if word == 0x5C {- \ -} then