Cleanup

src/Dodge/Data/SelectionList.hs

@@ -22,20 +22,17 @@ data ListDisplayParams = ListDisplayParams
     , _ldpWidth :: SelectionWidth
     }
 
-data CursorDisplay = CursorDisplay
-    { _cursSides :: [CardinalPoint]
-    }
+data CursorDisplay
+    = BoundaryCursor
+        { _cursSides :: [CardinalPoint]
+        }
+    | BackdropCursor
 
 data SelectionList a = SelectionList
     { _slItems :: [SelectionItem a]
     , _slSelPos :: Maybe Int
-    , _slRegex :: String
-    , _slRegexInput :: Bool
-    , _slRegexList :: [(SelectionItem a, Maybe Int)]
     }
 
---deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data SelectionSections a = SelectionSections
     { _sssSections :: IntMap (SelectionSection a)
     , _sssExtra :: SSSExtra
@@ -44,7 +41,7 @@ data SelectionSections a = SelectionSections
 -- 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
+newtype SSSExtra = SSSExtra
     { _sssFilters :: IntMap (Maybe String)
     }
 
@@ -64,7 +61,6 @@ data SelectionSection a = SelectionSection
     , _ssDescriptor :: String
     }
 
-
 data SelectionWidth
     = FixedSelectionWidth Int
     | VariableSelectionWidth (Int -> Int)