Unify regex/filtering code

src/Dodge/Data/SelectionList.hs

@@ -1,6 +1,4 @@
 {-# LANGUAGE StrictData #-}
---{-# LANGUAGE DeriveGeneric #-}
---{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.SelectionList where
@@ -12,9 +10,6 @@ import Dodge.Data.CardinalPoint
 import Dodge.Data.ScreenPos
 import Picture.Data
 
---import Data.Aeson
---import Data.Aeson.TH
-
 data ListDisplayParams = ListDisplayParams
     { _ldpPos :: ScreenPos
     , _ldpScale :: Float
@@ -23,9 +18,7 @@ data ListDisplayParams = ListDisplayParams
     }
 
 data CursorDisplay
-    = BoundaryCursor
-        { _cursSides :: [CardinalPoint]
-        }
+    = BoundaryCursor {_cursSides :: [CardinalPoint]}
     | BackdropCursor
 
 data SelectionList a = SelectionList
@@ -33,10 +26,6 @@ data SelectionList a = SelectionList
     , _slSelPos :: Maybe Int
     }
 
---data SelectionSections a = SelectionSections
---    { _sssSections :: IntMap (SelectionSection a)
---    }
-
 data SectionCursor = SectionCursor
     { _scurPos :: Int
     , _scurSize :: Int
@@ -81,9 +70,5 @@ makeLenses ''ListDisplayParams
 makeLenses ''SelectionList
 makeLenses ''SelectionItem
 makeLenses ''SelectionSection
---makeLenses ''SelectionSections
 makeLenses ''SectionCursor
 makeLenses ''CursorDisplay
-
---deriveJSON defaultOptions ''SelectionItem
---deriveJSON defaultOptions ''SelectionList