From 42103ab247057c04c8ce7a83d9d4c160713a3df1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 10 Aug 2020 16:31:03 +0200
Subject: [PATCH] fix: bump for unliftio

---
 src/Network/Minio/Data.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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.