type EventSource a = (AddHandler a, a -> IO ()) type EventSource a = (AddHandler a, a -> IO ())