Fix mouse selection in menus

src/Dodge/Menu/Loading.hs

@@ -1,7 +1,7 @@
 module Dodge.Menu.Loading where
 
+import Dodge.ListDisplayParams
 import Dodge.Default.SelectionList
-import Dodge.Menu.Option
 import Dodge.Data.Universe
 
 loadingScreen :: String -> ScreenLayer

src/Dodge/Menu/Option.hs

@@ -1,10 +1,8 @@
 module Dodge.Menu.Option where
 
 import Dodge.ListDisplayParams
-import Dodge.Data.ScreenPos
 import Control.Applicative
 import Data.Maybe
-import Dodge.Data.CardinalPoint
 import Dodge.Data.SelectionList
 import Dodge.Data.Universe
 import Dodge.Default.SelectionList
@@ -12,16 +10,6 @@ import Dodge.SelectionList
 import LensHelp
 import Padding
 import Picture.Base
-import Linear
-
-optionListDisplayParams :: ListDisplayParams
-optionListDisplayParams =
-    defaultListDisplayParams
-        & ldpPos . spPixelOff .~ V2 50 (-50)
-        & ldpScale .~ 2
-        & ldpVerticalGap .~ 0
-        & ldpWidth .~ FixedSelectionWidth 25
-        & ldpCursorSides .~ [North, South, West]
 
 initializeOptionMenu :: String -> [MenuOption] -> PositionedMenuOption -> Universe -> ScreenLayer
 initializeOptionMenu title ops pmo u =