Push more data out of selection list into menu screen

src/Dodge/Data/SelectionList.hs

@@ -19,7 +19,6 @@ data SelectionList = SelectionList
     , _slWidth :: SelectionWidth
     , _slLength :: Int
     , _slSizeRestriction :: SelectionSizeRestriction
---    , _slSpecialItem :: SpecialSelectionItem
     }
 
 data SelectionItemIndex = ListedSelectionItem Int
@@ -31,10 +30,7 @@ data SpecialSelectionItem = NoSpecialSelectionItem
 
 data SelectionSizeRestriction = NoSelectionSizeRestriction
     | SelectionSizeRestriction
-        { _maxSelectionLines :: Int
-        , _overflowItemTop :: SelectionItem
-        , _overflowItemBottom :: SelectionItem
-        , _ssrType :: SSRType
+        { _overflowItemBottom :: SelectionItem
         }
 
 newtype SSRType = SSRFromScreenBottom {_ssrFromScreenBottom :: Float}