Reorganise/cleanup

src/Dodge/Data/SelectionList.hs

@@ -30,23 +30,19 @@ data SelectionList a = SelectionList
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
--- this is projected to be VERY arbitrary: the fssFilters 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.
-data FilterableSections a = FilterableSections
-    { _fssFilters :: IntMap (Maybe String)
-    , _fssSections :: SelectionSections a
-    }
 
 data SelectionSections a = SelectionSections
     { _sssSections :: IntMap (SelectionSection a)
-    , _sssSelPos :: Maybe (Int,Int)
+    , _sssExtra :: SSSExtra
     }
 
---data SSSExtra :: SSSExtra
---    { _sssSelPos :: Maybe (Int,Int)
---    , _sssFilters :: IntMap (Maybe String
---    }
+-- 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.
+data SSSExtra = SSSExtra
+    { _sssSelPos :: Maybe (Int,Int)
+    , _sssFilters :: IntMap (Maybe String)
+    }
 
 data SectionCursor = SectionCursor
     { _scurPos :: Int
@@ -100,7 +96,7 @@ makeLenses ''SelectionList
 makeLenses ''SelectionItem
 makeLenses ''SelectionSection
 makeLenses ''SelectionSections
-makeLenses ''FilterableSections
+makeLenses ''SSSExtra
 makeLenses ''SectionCursor
 --deriveJSON defaultOptions ''SelectionItem
 --deriveJSON defaultOptions ''SelectionList