using stopManager in withManager

yesodweb · Jul 11, 2023 · 3334236 · 3334236
1 parent 496dd42
commit 3334236
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/time-manager/System/TimeManager.hs b/time-manager/System/TimeManager.hs
@@ -143,10 +143,10 @@ resume = tickle
 ----------------------------------------------------------------
 
 -- | Call the inner function with a timeout manager.
+-- 'stopManager' is used after that.
 withManager :: Int -- ^ timeout in microseconds
  -> (Manager -> IO a)
  -> IO a
-withManager timeout f = do
- -- FIXME when stopManager is available, use it
- man <- initialize timeout
- f man
+withManager timeout f = E.bracket (initialize timeout)
+ stopManager
+ f