@@ -51,7 +51,6 @@ import Control.Concurrent (threadDelay, myThreadId, killThread)
51import qualified Control.Exception as E
51import qualified Control.Exception as E
52import Data.IORef (IORef)
52import Data.IORef (IORef)
53import qualified Data.IORef as I
53import qualified Data.IORef as I
54−import Data.Typeable (Typeable)
55import GHC.Weak (Weak (..))
54import GHC.Weak (Weak (..))
56import Network.Wai.Handler.Warp.Thread
55import Network.Wai.Handler.Warp.Thread
57import System.Mem.Weak (deRefWeak)
56import System.Mem.Weak (deRefWeak)
@@ -74,12 +73,6 @@ data State = Active -- Manager turns it to Inactive.
75----------------------------------------------------------------
74----------------------------------------------------------------
77−data TimeoutManagerStopped = TimeoutManagerStopped
78− deriving (Show, Typeable)
79−instance E.Exception TimeoutManagerStopped
81−----------------------------------------------------------------
83-- | Creating timeout manager which works every N micro seconds
76-- | Creating timeout manager which works every N micro seconds
84-- where N is the first argument.
77-- where N is the first argument.
85initialize :: Int -> IO Manager
78initialize :: Int -> IO Manager