diff --git a/src/Network/Minio/Data.hs b/src/Network/Minio/Data.hs
index 9aa49b7..14d5613 100644
--- a/src/Network/Minio/Data.hs
+++ b/src/Network/Minio/Data.hs
@@ -1058,7 +1058,7 @@ newtype Minio a = Minio
     )
 
 instance MonadUnliftIO Minio where
-  askUnliftIO = (\(U.UnliftIO unliftIO) -> U.UnliftIO $ \(Minio f) -> unliftIO f) <$> Minio U.askUnliftIO
+  withRunInIO inner = Minio $ U.askUnliftIO >>= \(U.UnliftIO unliftIO) -> liftIO (inner $ \(Minio f) -> unliftIO f)
 
 -- | MinioConn holds connection info and a connection pool to allow
 -- for efficient resource re-use.