git.iko.soy/elk
on master help sign in
Get rid of UnexpectedDocComment error in whitespace

Finding them this way means they chomp legitimate doc comments and turn them into errors. Need to find some other way.

commitce0cbd41844ef30879d68e553e849f19bf25c5e1 authorEvan Czaplicki <evancz@users.noreply.github.com> dateFri 3 May 2019, 14:26 (7 years ago) parent38fdd8a
1 file changed+1−4
compare with master
unifiedsplit
compiler/src/Parse/Space.hs+1−4
compiler/src/Parse/Space.hs+1−4
@@ -52,7 +52,6 @@ chomp toError =
5252
5353 HasTab -> cerr newRow newCol (toError E.HasTab)
5454 EndlessMultiComment -> cerr newRow newCol (toError E.EndlessMultiComment)
55− UnexpectedDocComment -> cerr newRow newCol (toError E.UnexpectedDocComment)
5655
5756
5857
@@ -108,7 +107,6 @@ chompAndCheckIndent toSpaceError toIndentError =
108107
109108 HasTab -> cerr newRow newCol (toSpaceError E.HasTab)
110109 EndlessMultiComment -> cerr newRow newCol (toSpaceError E.EndlessMultiComment)
111− UnexpectedDocComment -> cerr newRow newCol (toSpaceError E.UnexpectedDocComment)
112110
113111
114112
@@ -119,7 +117,6 @@ data Status
119117 = Good
120118 | HasTab
121119 | EndlessMultiComment
122− | UnexpectedDocComment
123120
124121
125122eatSpaces :: Ptr Word8 -> Ptr Word8 -> Row -> Col -> (# Status, Ptr Word8, Row, Col #)
@@ -189,7 +186,7 @@ eatMultiComment pos end row col =
189186 else if P.unsafeIndex pos1 == 0x2D {- - -} then
190187
191188 if P.unsafeIndex pos2 == 0x7C {- | -} then
192− (# UnexpectedDocComment, pos, row, col #)
189+ (# Good, pos, row, col #)
193190 else
194191 let
195192 (# status, newPos, newRow, newCol #) =