item :: Parser Char
item = failOnEOF >>
       (Parser $ \(x:xs) l c -> Right (x, xs, updateLine l x, updateCol c x))
item :: Parser Char
item = failOnEOF >>
       (Parser $ \(x:xs) l c -> Right (x, xs, updateLine l x, updateCol c x))
item = failOnEOF >>
       (Parser $ \(x:xs) l c -> Right (x, xs, updateLine l x, updateCol c x))