Fix an infinite loop
Man, wouldn’t it be cool if the compiler would detect this and tell you
about it at compile time :P
commit8c63b57405eab86e582acbdb79a4b9607e640106
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateFri 15 Dec 2017, 20:12 (9 years ago)
parent06847f6
src/Parse/Primitives/Whitespace.hs+1−1
@@ -68,7 +68,7 @@ eatSpaces fp offset terminal row col =
6868 eatMultiComment fp offset terminal row col
6969
7070 0x2D {- - -} ->
71− let !offset1 = offset1 + 1 in
71+ let !offset1 = offset + 1 in
7272 if offset1 < terminal && I.unsafeIndex fp offset1 == 0x2D {- - -} then
7373 eatLineComment fp (offset + 2) terminal row (col + 2)
7474 else