meaningChar :: Monad m => LexerT m Meaning
meaningChar = getCharMeaning <$> getState <*> rawChar
meaningChar :: Monad m => LexerT m Meaning
meaningChar = getCharMeaning <$> getState <*> rawChar
meaningChar = getCharMeaning <$> getState <*> rawChar