Allow for scrolling in combine regex

src/Dodge/Data/SelectionList.hs

@@ -71,7 +71,7 @@ data SMRegex = NoSMRegex
 data SelectionIntMap a = SelectionIntMap
     { _smItems :: [SelectionItem a]
     , _smSelPos :: Maybe Int
-    , _smRegex  :: SMRegex
+    , _smRegex  :: Maybe String
     , _smShownItems :: IntMap (SelectionItem a)
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
@@ -87,7 +87,6 @@ data SelectionItem a = SelectionItem
     { _siPictures :: [String]
     , _siHeight :: Int
     , _siIsSelectable :: Bool
-    --, _siWidth  :: Int
     , _siColor  :: Color
     , _siOffX   :: Int
     , _siPayload :: a
@@ -96,7 +95,13 @@ data SelectionItem a = SelectionItem
     { _siPictures :: [String]
     , _siHeight :: Int
     , _siIsSelectable :: Bool
-    --, _siWidth  :: Int
+    , _siColor  :: Color
+    , _siOffX   :: Int
+    }
+    | SelectionRegex
+    { _siPictures :: [String]
+    , _siHeight :: Int
+    , _siIsSelectable :: Bool
     , _siColor  :: Color
     , _siOffX   :: Int
     }