Move inventory filter to different section of selection list

src/Dodge/Data/SelectionList.hs

@@ -45,7 +45,6 @@ data SectionCursor = SectionCursor
 data SelectionSection a = SelectionSection
     { _ssItems :: IntMap (SelectionItem a)
     , _ssCursor :: Maybe SectionCursor
-    , _ssRegex :: Regex
 --    , _ssSelPos :: Maybe Int
 --    , _ssSelSize :: Maybe Int
 --    , _ssSelColor :: Maybe Color
@@ -57,11 +56,6 @@ data SelectionSection a = SelectionSection
     , _ssDescriptor :: String
     }
     
-data Regex = UnavailableRegex
-    | EmptyRegex
-    | Regex {_regexString :: String}
-  deriving (Show)
-
 data SelectionIntMap a = SelectionIntMap
     { _smItems :: [SelectionItem a]
     , _smSelPos :: Maybe Int
@@ -100,7 +94,7 @@ data SelectionItem a = SelectionItem
     , _siOffX   :: Int
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
-    
+
 makeLenses ''ListDisplayParams
 makeLenses ''SelectionList
 makeLenses ''SelectionItem
@@ -108,6 +102,5 @@ makeLenses ''SelectionIntMap
 makeLenses ''SelectionSection
 makeLenses ''SelectionSections
 makeLenses ''SectionCursor
-makeLenses ''Regex
 --deriveJSON defaultOptions ''SelectionItem
 --deriveJSON defaultOptions ''SelectionList