Cleanup

src/Dodge/Render/List.hs

@@ -7,24 +7,22 @@ module Dodge.Render.List (
     drawSelectionListBackground,
     drawListYgapScaleYoff,
     drawListElement,
-    selSecDrawCursor,
     dShadCol,
     drawListYoff,
     stackPicturesAt,
     toTopLeft,
     listCursorChooseBorderScale,
-    selSecDrawCursorAt,
+    selSecDrawCursor,
     drawTitleBackground, -- should be renamed, made sensible
     drawCursorAt,
     drawLabelledList,
 ) where
 
-import Dodge.Data.HUD
-import qualified Data.IntMap.Strict as IM
 import Data.Maybe
 import Dodge.Base.Window
 import Dodge.Data.CardinalPoint
 import Dodge.Data.Config
+import Dodge.Data.HUD
 import Dodge.Data.SelectionList
 import Dodge.ListDisplayParams
 import Dodge.ScreenPos
@@ -105,9 +103,8 @@ stackPicturesAt = stackPicturesAtOff 0
 stackPicturesAtOff :: Int -> [Picture] -> Picture
 stackPicturesAtOff i = mconcat . zipWith (drawListElement 10 1 0) [i, i - 1 ..]
 
-selSecDrawCursorAt ::
-    LDParams -> CursorDisplay -> IM.IntMap (SelSection a) -> Selection -> Picture
-selSecDrawCursorAt ldp curs sss sel = fold $ do
+selSecDrawCursor :: LDParams -> CursorDisplay -> IMSS a -> Selection -> Picture
+selSecDrawCursor ldp curs sss sel = fold $ do
     let i = sel ^. slSec
         j = sel ^. slInt
     yint <- selSecYint i j sss
@@ -124,10 +121,6 @@ selSecDrawCursorAt ldp curs sss sel = fold $ do
             (_siWidth si)
             (_siHeight si)
 
-selSecDrawCursor ::
-    LDParams -> CursorDisplay -> IM.IntMap (SelSection a) -> Maybe Selection -> Picture
-selSecDrawCursor ldp cd = maybe mempty . selSecDrawCursorAt ldp cd
-
 -- displays a cursor that should match up to list text pictures
 listCursorChooseBorderScale ::
     Float ->