@@ -260,6 +260,10 @@ parseTokens = unfoldr f
260260 | otherwise =
261261 case parse token t of
262262 Done rest tok -> Just (tok, rest)
263+ Partial cont ->
264+ case cont mempty of
265+ Done rest tok -> Just (tok, rest)
266+ _ -> Nothing
263267 _ -> Nothing
264268
265269-- | Parse a lazy list of tokens from lazy 'TL.Text'.