Remove SelectionSections

src/Dodge/Data/SelectionList.hs

@@ -33,17 +33,9 @@ data SelectionList a = SelectionList
     , _slSelPos :: Maybe Int
     }
 
-data SelectionSections a = SelectionSections
-    { _sssSections :: IntMap (SelectionSection a)
---    , _sssExtra :: SSSExtra
-    }
-
--- note that filters are arbitrary: the sssFilters point to the lower of
--- a pair of ints (i,i+1) such that the lower is the regex section, the higher
--- is the items section.
-newtype SSSExtra = SSSExtra
-    { _sssFilters :: IntMap (Maybe String)
-    }
+--data SelectionSections a = SelectionSections
+--    { _sssSections :: IntMap (SelectionSection a)
+--    }
 
 data SectionCursor = SectionCursor
     { _scurPos :: Int
@@ -87,8 +79,7 @@ makeLenses ''ListDisplayParams
 makeLenses ''SelectionList
 makeLenses ''SelectionItem
 makeLenses ''SelectionSection
-makeLenses ''SelectionSections
-makeLenses ''SSSExtra
+--makeLenses ''SelectionSections
 makeLenses ''SectionCursor
 makeLenses ''CursorDisplay