@@ -260,6 +260,10 @@ parseTokens = unfoldr f
260 | otherwise =
260 | otherwise =
261 case parse token t of
261 case parse token t of
262 Done rest tok -> Just (tok, rest)
262 Done rest tok -> Just (tok, rest)
265+ Done rest tok -> Just (tok, rest)
263 _ -> Nothing
267 _ -> Nothing
265-- | Parse a lazy list of tokens from lazy 'TL.Text'.
269-- | Parse a lazy list of tokens from lazy 'TL.Text'.