Cleanup

src/Dodge/Update/Input/ScreenLayer.hs

@@ -1,6 +1,6 @@
 module Dodge.Update.Input.ScreenLayer (
     updateUseInputOnScreen,
-    ldpVerticalSelection,
+    ldpSelection,
 ) where
 
 import Dodge.SoundLogic.ExternallyGeneratedSounds
@@ -71,8 +71,8 @@ mouseClickOptionsList u = fromMaybe u $ do
             return $ f u & uvSoundQueue .:~ click1S
         _ -> Nothing
 
-ldpVerticalSelection :: Config -> ListDisplayParams -> Point2 -> Maybe Int
-ldpVerticalSelection cfig ldp (V2 _ y)
+ldpSelection :: Config -> ListDisplayParams -> Point2 -> Maybe Int
+ldpSelection cfig ldp (V2 _ y)
     | yupper == ylower = Just yupper
     | otherwise = Nothing
   where
@@ -86,4 +86,4 @@ ldpVerticalSelection cfig ldp (V2 _ y)
 
 setSelectionListRestriction :: Config -> ScreenLayer -> ScreenLayer
 setSelectionListRestriction cfig = 
-    scAvailableLines .~ getAvailableListLines menuDisplayParams cfig
+    scAvailableLines .~ getAvailableListLines menuLDP cfig