-- | Shows the argument character.
printChar :: MonadWriter (Endo String) m => Char -> m ()
printChar = tell' . showChar
printChar :: MonadWriter (Endo String) m => Char -> m ()
printChar = tell' . showChar
printChar = tell' . showChar