emitS :: (String -> TokenT) -> Action
emitS t cfg p s z  = emit (t (T.unpack s)) cfg p s z
emitS :: (String -> TokenT) -> Action
emitS t cfg p s z  = emit (t (T.unpack s)) cfg p s z
emitS t cfg p s z  = emit (t (T.unpack s)) cfg p s z