withHandle :: TimeoutManager -> Int -> Finalizer -> IO a -> IO a
withHandle tm timeout fin action = bracket (open tm timeout fin)
                                           (purge . snd)
                                           (const $ action)
withHandle :: TimeoutManager -> Int -> Finalizer -> IO a -> IO a
withHandle tm timeout fin action = bracket (open tm timeout fin)
                                           (purge . snd)
                                           (const $ action)
withHandle tm timeout fin action = bracket (open tm timeout fin)
                                           (purge . snd)
                                           (const $ action)