Cleanup

src/Dodge/Update.hs

@@ -471,10 +471,10 @@ getDebugMouseOver u = fromMaybe MouseInGame $ do
 getMenuMouseContext :: ScreenLayer -> Universe -> MouseContext
 getMenuMouseContext screen u = case screen ^. scOptions of
     [] -> NoMouseContext
-    _ -> fromMaybe MouseMenuCursor $ do
+    _ -> fromMaybe (MouseMenu Nothing) $ do
         yi <- ldpSelection (u ^. uvConfig) menuLDP (u ^. uvWorld . input . mousePos)
         t <- screen ^? scSelectionList . ix yi . siIsSelectable
-        return $ if t then MouseMenuClick yi else NoMouseContext
+        return $ if t then MouseMenu (Just yi) else NoMouseContext
 
 updateWheelEvents :: World -> World
 updateWheelEvents w = case w ^. input . scrollAmount of