Bump alarmclock version

bos · Jul 5, 2016 · 6e80f28 · 6e80f28
1 parent a403760
commit 6e80f28
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Data/Pool.hs b/Data/Pool.hs
@@ -187,7 +187,7 @@ createPool create destroy numStripes idleTime maxResources = do
 
 -- | Periodically go through all pools, closing any resources that
 -- have been left idle for too long.
-reapStaleEntries :: (a -> IO ()) -> NominalDiffTime -> V.Vector (TVar Int, TVar [Entry a]) -> AlarmClock -> IO ()
+reapStaleEntries :: (a -> IO ()) -> NominalDiffTime -> V.Vector (TVar Int, TVar [Entry a]) -> AlarmClock UTCTime -> IO ()
 reapStaleEntries destroy idleTime poolStates alarmClock = do
  now <- getCurrentTime
  let isStale Entry{..} = now `diffUTCTime` lastUse > idleTime

diff --git a/resource-pool.cabal b/resource-pool.cabal
@@ -38,7 +38,7 @@ library
  stm >= 2.3,
  time,
  vector >= 0.7,
- alarmclock >= 0.2.0.3
+ alarmclock >= 0.4.0.2
 
  if flag(developer)
  ghc-options: -Werror