yihuang

{-# LANGUAGE ScopedTypeVariables #-}
import qualified Data.IntMap as M
import Data.IORef
import Data.Unique

{--
 - listen :: Event a -> (a -> IO ()) -> IO ()
 - fire   :: Event a -> a -> IO ()
 -}