# Pastebin VEK0GYE4
funcOne' :: (MonadReader env m) => Int -> SqlPersistT m ()
funcOne' i = mapReaderT (`runReaderT` i) funcTwo >> pure ()