Remove SelectionIntMap

2023-02-19 09:59:09 +00:00
parent 8ec1dc0830
commit a88755bd75
8 changed files with 6 additions and 118 deletions
@@ -52,14 +52,6 @@ data SelectionSection a = SelectionSection
    , _ssDescriptor :: String
    }
    
-data SelectionIntMap a = SelectionIntMap
-    { _smItems :: [SelectionItem a]
-    , _smSelPos :: Maybe Int
-    , _smRegex  :: Maybe String
-    , _smShownItems :: IntMap (SelectionItem a)
-    }
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data SelectionWidth = FixedSelectionWidth Int
    | VariableSelectionWidth (Int -> Int)
    | UseMaxSelectionItemWidth
@@ -94,7 +86,6 @@ data SelectionItem a = SelectionItem
 makeLenses ''ListDisplayParams
 makeLenses ''SelectionList
 makeLenses ''SelectionItem
-makeLenses ''SelectionIntMap
 makeLenses ''SelectionSection
 makeLenses ''SelectionSections
 makeLenses ''SectionCursor