A simple way to extend `SimpleApp`? about rio HOT 3 CLOSED

Of course, I can copy some code from RIO.Prelude.Simple and have this:

runApp ∷ RIO App α → IO α
runApp action = do
  verbose <- isJust <$> lookupEnv "RIO_VERBOSE"
  lo <- logOptionsHandle stderr verbose
  withLogFunc lo $ \lf -> do
    simpleApp <- mkSimpleApp lf Nothing
    temporaryDirectory ← getTempDir
    runRIO App {..} action

But what is the point of depending on a library if I still have to borrow code from it? Also, it is very technical and I do not really want to trust myself with this sort of things.

from rio.

This bit of code looks incorrect to me:

runApp ∷ RIO App α → IO α
runApp action = do
  simpleApp ← runSimpleApp ask
  temporaryDirectory ← getTempDir
  runRIO App {..} action

Instead of using runSimpleApp and then allowing the result of ask to escape, something like the following would be preferable:

runApp ∷ RIO App α → IO α
runApp action = runSimpleApp $ do
  simpleApp ← ask
  temporaryDirectory ← getTempDir
  runRIO App {..} action

For the rest of the code: to be honest, I'm not that comfortable with all of the language extensions employed to make that work, so it's possible something is slipping past me.

from rio.

This works, thanks!

from rio.