Cleanup

src/Dodge/Render/List.hs

@@ -102,10 +102,9 @@ stackPicturesAtOff :: Int -> [Picture] -> Picture
 stackPicturesAtOff i = mconcat . zipWith (drawListElement 10 1 0) [i, i -1 ..]
 
 selSecDrawCursorAt ::
---    Int ->
     ListDisplayParams ->
     CursorDisplay ->
-    IM.IntMap (SelectionSection a) ->
+    IM.IntMap (SelSection a) ->
     (Int, Int) ->
     Picture
 selSecDrawCursorAt ldp curs sss (i, j) = fold $ do
@@ -126,7 +125,7 @@ selSecDrawCursorAt ldp curs sss (i, j) = fold $ do
 selSecDrawCursor ::
     ListDisplayParams ->
     CursorDisplay ->
-    IM.IntMap (SelectionSection a) ->
+    IM.IntMap (SelSection a) ->
     Maybe (Int, Int) ->
     Picture
 selSecDrawCursor ldp curs = maybe mempty . selSecDrawCursorAt ldp curs