@@ -59,6 +59,12 @@ dummyHandle = Handle (return ()) (unsafePerformIO $ I.newIORef Active)
5959
6060----------------------------------------------------------------
6161
62+data TimeoutManagerStopped = TimeoutManagerStopped
63+ deriving (Show, Typeable)
64+instance E.Exception TimeoutManagerStopped
65+
66+----------------------------------------------------------------
67+
6268-- | Creating timeout manager which works every N micro seconds
6369-- where N is the first argument.
6470initialize :: Int -> IO Manager
@@ -85,9 +91,7 @@ initialize timeout = do
8591 go' Active = Inactive
8692 go' x = x
8793
88−data TimeoutManagerStopped = TimeoutManagerStopped
89− deriving (Show, Typeable)
90−instance E.Exception TimeoutManagerStopped
94+----------------------------------------------------------------
9195
9296stopManager :: Manager -> IO ()
9397stopManager (Manager ihandles) = E.mask_ $ do