-- Discard the next token, not checking what it actually is
-- This is like consume, but less safe. Use it instead of consume only after you
-- already checked it yourself (in a conditional block or something)
advance :: [Token] -> ParserConsumed
advance (_:tTail) = return tTail
advance :: [Token] -> ParserConsumed
advance (_:tTail) = return tTail
advance (_:tTail) = return tTail