Monad Voodo for alling the event handlers
-rw-r--r-- 536 Dummy.hs
-rw-r--r-- 5257 Partty.hs