@@ -157,7 +157,7 @@ eatSpaces pos end row col =
157157-- LINE COMMENTS
158158
159159
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 #)
161161eatLineComment pos end row col =
162162 if pos >= end then
163163 (# Good, pos, row, col #)
@@ -208,7 +208,7 @@ data MultiStatus
208208 | MultiEndless
209209
210210
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 #)
212212eatMultiCommentHelp pos end row col openComments =
213213 if pos >= end then
214214 (# MultiEndless, pos, row, col #)