Removed commented out old code.

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