Tweak drawRBOptions, still not completely correct

src/Dodge/SelectionSections/Draw.hs

@@ -14,7 +14,7 @@ import Dodge.ScreenPos
 import Dodge.SelectionSections
 import Picture.Base
 
-drawSelectionSections :: IM.IntMap (SelSection a) -> LDParams -> Config -> Picture
+drawSelectionSections :: IMSS a -> LDParams -> Config -> Picture
 drawSelectionSections sss ldp cfig =
     translateScreenPos cfig (ldp ^. ldpPos) $
         drawListYgapScaleYoff
@@ -29,14 +29,13 @@ drawSelectionSections sss ldp cfig =
                 sss
             )
 
-drawSSCursor ::
-    IM.IntMap (SelSection a) -> LDParams -> CursorDisplay -> Config -> Selection -> Picture
+drawSSCursor
+    :: IMSS a -> LDParams -> CursorDisplay -> Config -> Selection -> Picture
 drawSSCursor sss ldp curs cfig =
-    translateScreenPos cfig (ldp ^. ldpPos) .
-        selSecDrawCursor ldp curs sss
+    translateScreenPos cfig (ldp ^. ldpPos) .  selSecDrawCursor ldp curs sss
 
 drawSSMultiCursor ::
-    IM.IntMap (SelSection a) ->
+    IMSS a ->
     Maybe (Int, Int) ->
     Maybe Int ->
     LDParams ->