Remove SelectionSections

src/Dodge/SelectionSections/Draw.hs

@@ -9,9 +9,10 @@ import Dodge.Data.SelectionList
 import Dodge.Render.List
 import Dodge.ScreenPos
 import Picture.Base
+import qualified Data.IntMap.Strict as IM
 
 drawSelectionSections 
-    :: SelectionSections a 
+    :: IM.IntMap (SelectionSection a) 
     -> ListDisplayParams 
     -> Configuration 
     -> Picture
@@ -21,10 +22,10 @@ drawSelectionSections sss ldp cfig =
             (_ldpVerticalGap ldp)
             (_ldpScale ldp)
             0
-            (foldMap _ssShownItems (_sssSections sss))
+            (foldMap _ssShownItems sss)
 
 drawSSCursor 
-    :: SelectionSections a 
+    :: IM.IntMap (SelectionSection a) 
     -> Maybe (Int,Int) 
     -> ListDisplayParams 
     -> CursorDisplay