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

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