Remove deprecated createPool function

Author: arybczak

CHANGELOG.md

@@ -10,6 +10,7 @@
 * Do not exceed the maximum number of resources if the number of stripes does
   not divide it.
 * Add support for assigning a label to the pool.
+* Remove deprecated `createPool` function.
 
 # resource-pool-0.4.0.0 (2023-01-16)
 * Require `poolMaxResources` to be not smaller than the number of stripes.

resource-pool.cabal

@@ -37,7 +37,6 @@ library
                , primitive >= 0.7
                , stm
                , text
-               , time
 
   ghc-options:      -Wall
                     -Wcompat

src/Data/Pool.hs

@@ -20,16 +20,11 @@ module Data.Pool
   , putResource
   , destroyResource
   , destroyAllResources
-
-    -- * Compatibility with 0.2
-  , createPool
   ) where
 
 import Control.Concurrent.STM
 import Control.Exception
 import Control.Monad
-import Data.Text qualified as T
-import Data.Time (NominalDiffTime)
 
 import Data.Pool.Internal
 
@@ -104,23 +99,6 @@ tryTakeResource pool = mask_ $ do
         pure $ pure Nothing
       else fmap Just <$> takeAvailableResource pool lp stripe
 
-{-# DEPRECATED createPool "Use newPool instead" #-}
-
--- | Provided for compatibility with @resource-pool < 0.3@.
---
--- Use 'newPool' instead.
-createPool :: IO a -> (a -> IO ()) -> Int -> NominalDiffTime -> Int -> IO (Pool a)
-createPool create free numStripes idleTime maxResources =
-  newPool
-    PoolConfig
-      { createResource = create
-      , freeResource = free
-      , poolCacheTTL = realToFrac idleTime
-      , poolMaxResources = numStripes * maxResources
-      , poolNumStripes = Just numStripes
-      , pcLabel = T.empty
-      }
-
 ----------------------------------------
 -- Helpers