Closed kku1993 closed 7 years ago
This issue fixed by this PR has already been fixed using a slightly different solution. The code is now
alexGetByte (p,_,[],(c:s)) = let p' = alexMove p c
(b:bs) = utf8Encode c
in p' `seq` Just (b, (p', c, bs, s))
where utf8Encode
always returns a list containing at least one element.
This PR should be closed.
Non-exhaustive pattern in the wrapper is undesirable since third parties using the wrapper will see a warning that's not related to their code.