@@ -44,7 +44,10 @@ newtype Manager = Manager (IORef [Handle])
4444-- First field is action to be performed on timeout.
4545data Handle = Handle (IO ()) (IORef State)
4646
47−data State = Active | Inactive | Paused | Canceled
47+data State = Active -- Manager turns it to Inactive.
48+ | Inactive -- Manager removes it with timeout action.
49+ | Paused -- Manager does not change it.
50+ | Canceled -- Manager removes it without timeout action.
4851
4952----------------------------------------------------------------
5053