-- | Print a value + newline from within a `MonadIO` monad.
printLn :: (MonadIO m, Show a) => m a -> m ()
printLn = (>>= printStrLn . show)
printLn :: (MonadIO m, Show a) => m a -> m ()
printLn = (>>= printStrLn . show)
printLn = (>>= printStrLn . show)