[C2hs] patch applied (c2hs): CHS/Lexer: use getNameSupply / setNameSupply