@@ -51,7 +51,6 @@ import Control.Concurrent (threadDelay, myThreadId, killThread)
5151import qualified Control.Exception as E
5252import Data.IORef (IORef)
5353import qualified Data.IORef as I
54−import Data.Typeable (Typeable)
5554import GHC.Weak (Weak (..))
5655import Network.Wai.Handler.Warp.Thread
5756import System.Mem.Weak (deRefWeak)
@@ -74,12 +73,6 @@ data State = Active -- Manager turns it to Inactive.
7473
7574----------------------------------------------------------------
7675
77−data TimeoutManagerStopped = TimeoutManagerStopped
78− deriving (Show, Typeable)
79−instance E.Exception TimeoutManagerStopped
80−
81−----------------------------------------------------------------
82−
8376-- | Creating timeout manager which works every N micro seconds
8477-- where N is the first argument.
8578initialize :: Int -> IO Manager