me :: Lexer String
bareName = many2 (blacklistChar restrictedFromStartOfName) (blacklistChar restrictedFromName)

lite
bareName :: Lexer String
bareName = many2 (blacklistChar restrictedFromStartOfName) (blacklistChar restrictedFromName)
bareName = many2 (blacklistChar restrictedFromStartOfName) (blacklistChar restrictedFromName)