Tweak cursor storage on sss

src/Dodge/Data/SelectionList.hs

@@ -32,12 +32,12 @@ data SelectionList a = SelectionList
 
 data SelectionSections a = SelectionSections
     { _sssSections :: IntMap (SelectionSection a)
-    , _sssSelPos :: Maybe Int
+    , _sssSelPos :: Maybe (Int,Int)
     }
 
 data SectionCursor = SectionCursor
-    { _scurSel :: Int
-    , _scurPos :: Int
+    --{ _scurSel :: Int
+    { _scurPos :: Int
     , _scurSize :: Int
     , _scurColor :: Color
     }