Refactor event handling. Allow mouse movement in menus

app/Main.hs

@@ -5,13 +5,9 @@ import LoadConfig
 import Dodge.Default
 import Dodge.Data
 import Dodge.Initialisation
-import Dodge.Rooms
-import Dodge.Layout
 import Dodge.Update
 import Dodge.Event
 import Dodge.Render
-import Dodge.Menu
-import Dodge.Floor
 import Dodge.LoadConfig
 import Dodge.LoadSound
 import Picture
@@ -76,7 +72,7 @@ main = do
             return $ preData & soundData . playingSounds .~ newPlayingSounds
                              & frameTimer .~ endTicks
         )
-        (flip $ menuEvents handleEvent)
+        handleEvent
         (Just . update)
     Mix.closeAudio