Simplify menu screens (no choice of display parameters)

src/Dodge/Update.hs

@@ -29,7 +29,6 @@ import Dodge.Flame
 import Dodge.Inventory
 import Dodge.Laser.Update
 import Dodge.LinearShockwave.Update
-import Dodge.ListDisplayParams
 import Dodge.Machine.Update
 import Dodge.Menu
 import Dodge.ModificationEffect
@@ -371,7 +370,6 @@ getMenuMouseContext :: ScreenLayer -> Universe -> MouseContext
 getMenuMouseContext screen u = case screen ^. scOptions of
     [] -> NoMouseContext
     _ -> fromMaybe MouseMenuCursor $ do
---        ldps <- screen ^? scListDisplayParams
         let ymax = maybe 0 length $ screen ^? scSelectionList
         yi <-
             ldpVerticalSelection