git.iko.soy/elk
on master help sign in
use Row/Col type aliases when parsing spaces
1516215Evan Czaplicki
compiler/src/Parse/Space.hs+2−2
compare with master
unifiedsplit
@@ -157,7 +157,7 @@ eatSpaces pos end row col =
157-- LINE COMMENTS
157-- LINE COMMENTS
158
158
159
159
160−eatLineComment :: Ptr Word8 -> Ptr Word8 -> Word16 -> Word16 -> (# Status, Ptr Word8, Word16, Word16 #)
160+eatLineComment :: Ptr Word8 -> Ptr Word8 -> Row -> Col -> (# Status, Ptr Word8, Row, Col #)
161eatLineComment pos end row col =
161eatLineComment pos end row col =
162 if pos >= end then
162 if pos >= end then
163 (# Good, pos, row, col #)
163 (# Good, pos, row, col #)
@@ -208,7 +208,7 @@ data MultiStatus
208 | MultiEndless
208 | MultiEndless
209
209
210
210
211−eatMultiCommentHelp :: Ptr Word8 -> Ptr Word8 -> Row -> Col -> Word16 -> (# MultiStatus, Ptr Word8, Word16, Word16 #)
211+eatMultiCommentHelp :: Ptr Word8 -> Ptr Word8 -> Row -> Col -> Word16 -> (# MultiStatus, Ptr Word8, Row, Col #)
212eatMultiCommentHelp pos end row col openComments =
212eatMultiCommentHelp pos end row col openComments =
213 if pos >= end then
213 if pos >= end then
214 (# MultiEndless, pos, row, col #)
214 (# MultiEndless, pos, row, col #)