Cleanup

src/Dodge/Render/List.hs

@@ -90,12 +90,6 @@ drawCursorAt mi lis ldps width curs = fromMaybe mempty $ do
             width
             (_siHeight selit)
 
-getLDPWidth :: ListDisplayParams -> Int -> Int -> IM.IntMap (SelectionSection a) -> Int
-getLDPWidth ldps i j sss = case _ldpWidth ldps of
-    FixedSelectionWidth x -> x
---    UseMaxSelectionItemWidth -> a
-    UseItemWidth -> fromMaybe 0 $ sss ^? ix i . ssItems . ix j . siWidth
-
 drawListYoff :: Int -> [Picture] -> Picture
 drawListYoff = drawListYgapScaleYoff 0 1
 
@@ -119,7 +113,6 @@ selSecDrawCursorAt ldp curs sss (i, j) = fold $ do
     yint <- selSecYint i j sss
     sindent <- sss ^? ix i . ssIndent
     si <- sss ^? ix i . ssItems . ix j
-    let xsize = getLDPWidth ldp i j sss
     return $
         listCursorChooseBorderScale
             (ldp ^. ldpVerticalGap)
@@ -128,7 +121,7 @@ selSecDrawCursorAt ldp curs sss (i, j) = fold $ do
             yint
             (_siOffX si + sindent)
             (_siColor si)
-            xsize
+            (_siWidth si)
             (_siHeight si)
 
 selSecDrawCursor ::