--- a/gameServer/Actions.hs	Wed Jan 29 09:17:25 2014 -0500
+++ b/gameServer/Actions.hs	Thu Jan 30 00:18:32 2014 +0400
@@ -782,3 +782,8 @@
     io $ do
         t <- getCurrentTime
         cleanup jm t
+
+
+processAction (RegisterEvent e) = do
+    actions <- registerEvent e
+    mapM_ processAction actions