Cleanup

src/Dodge/ListDisplayParams.hs

@@ -1,9 +1,9 @@
 module Dodge.ListDisplayParams (
     invDP,
     invCursorParams,
-    secondColumnParams,
+    secondColumnLDP,
     subInvX,
-    menuDisplayParams,
+    menuLDP,
 ) where
 
 import Control.Lens
@@ -40,8 +40,8 @@ invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
     _ | ButtonRight `M.member` _mouseButtons (_input w) -> [North, South, East, West]
     _ -> [North, South, West]
 
-secondColumnParams :: ListDisplayParams
-secondColumnParams =
+secondColumnLDP :: ListDisplayParams
+secondColumnLDP =
     defaultListDisplayParams
         & ldpPos . spPixelOff .~ V2 subInvX (-81)
 
@@ -51,8 +51,8 @@ subInvX = 10 * fromIntegral topInvW + 70
 topInvW :: Int
 topInvW = 15
 
-menuDisplayParams :: ListDisplayParams
-menuDisplayParams =
+menuLDP :: ListDisplayParams
+menuLDP =
     defaultListDisplayParams
         & ldpPos . spPixelOff .~ V2 11 (-70)
         & ldpScale .~ 2