Simplify menu display

src/Dodge/Render/MenuScreen.hs

@@ -3,6 +3,7 @@ module Dodge.Render.MenuScreen (
     drawMenuScreen,
 ) where
 
+import Dodge.ListDisplayParams
 import Dodge.ScreenPos
 import Dodge.Data.CardinalPoint
 import Control.Lens
@@ -14,8 +15,8 @@ import Picture
 
 drawMenuScreen :: Configuration -> Maybe Int -> ScreenLayer -> Picture
 drawMenuScreen cfig spos screen = case screen of
-    OptionScreen{_scTitle = titf, _scSelectionList = slist, _scListDisplayParams = ldps} ->
-        drawOptions ldps cfig titf spos slist
+    OptionScreen{_scTitle = titf, _scSelectionList = slist} ->
+        drawOptions optionListDisplayParams cfig titf spos slist
     InputScreen inputstr help -> drawInputMenu cfig ('>' : inputstr) help
 
 drawInputMenu ::