Refactor event code

app/Main.hs

@@ -12,7 +12,7 @@ import Dodge.Rooms
 import Dodge.Layout
 import Dodge.LoadSound
 import Dodge.Update
-import Dodge.KeyEvents
+import Dodge.Event
 import Dodge.Rendering
 import Dodge.Menu
 import Dodge.Floor
@@ -70,7 +70,7 @@ main = do
                       return $ preData & soundData  .~ newSoundData
                                        & frameTimer .~ endTicks
         )
-        (flip $ menuEvents $ flip handleEvent)
+        (flip $ menuEvents $ handleEvent)
         (\w -> Just $ update w)
     Mix.closeAudio