From 0541895c9490f83c5378a87dd5e62f124aa21c44 Mon Sep 17 00:00:00 2001 From: Stephan Barth Date: Mon, 26 Feb 2024 11:10:10 +0100 Subject: [PATCH] Removed commented out old code. --- src/Network/Minio/Instances.hs | 7 ------- 1 file changed, 7 deletions(-) diff --git a/src/Network/Minio/Instances.hs b/src/Network/Minio/Instances.hs index 725ecbd27..07c6c38ad 100644 --- a/src/Network/Minio/Instances.hs +++ b/src/Network/Minio/Instances.hs @@ -20,7 +20,6 @@ import Control.Monad.Catch import Data.Aeson ( FromJSON(..) ) ---import Data.Aeson.Types import Data.ByteArray @@ -35,17 +34,11 @@ instance MonadMask Minio where uninterruptibleMask = UnliftIO.uninterruptibleMask generalBracket acq rel inner = withUnliftIO $ \UnliftIO{..} -> generalBracket (unliftIO acq) ((unliftIO .) . rel) $ unliftIO . inner ---deriving instance Generic ScrubbedBytes ---deriving instance FromJSON ScrubbedBytes - instance FromJSON ScrubbedBytes where parseJSON = error "instance FromJSON ScrubbedBytes used but not implemented; implementation was neccessary due to version bump but cannot defined directly as intended, as ScrubbedBytes wants to take care that data cannot remain in memory after free, but Aeson does not care on loading. Hence, not implemented right now." -- do -- pj <- parseJSON x -- return $ ---deriving newtype instance Generic AccessKey ---deriving newtype instance Generic SecretKey - deriving newtype instance FromJSON AccessKey deriving newtype instance FromJSON SecretKey