diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-06-09 01:46:23 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-06-09 01:46:23 -0400 |
| commit | ed80d6acbf2a9e48f732331130f6dd7cbb6a0778 (patch) | |
| tree | 97bb3b948b23dfe38ec3b557b9c068caf142d5b4 | |
| parent | 5d98b03204e98259d8219c615199c796c286bb55 (diff) | |
GroupNested: handle unexpected close comment.
| -rw-r--r-- | GrepNested.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/GrepNested.hs b/GrepNested.hs index df52581..74033bd 100644 --- a/GrepNested.hs +++ b/GrepNested.hs | |||
| @@ -74,6 +74,7 @@ grepNested p !lin !col s = case cmtToken p s of | |||
| 74 | (EOL,tlen,cs) -> grepNested p (lin+1) 1 cs | 74 | (EOL,tlen,cs) -> grepNested p (lin+1) 1 cs |
| 75 | (NullInput,tlen,_) -> [] | 75 | (NullInput,tlen,_) -> [] |
| 76 | (IgnoredChar clen,_,cs) -> grepNested p lin (col+clen) cs | 76 | (IgnoredChar clen,_,cs) -> grepNested p lin (col+clen) cs |
| 77 | (CloseNested,tlen,cs) -> grepNested p lin (col+tlen) cs | ||
| 77 | 78 | ||
| 78 | 79 | ||
| 79 | findCloser :: Num lin => CommentProtocol t | 80 | findCloser :: Num lin => CommentProtocol t |