Cleanup

src/Dodge/Data/SelectionList.hs

@@ -33,15 +33,8 @@ data SelectionList a = SelectionList
 data SelectionSections a = SelectionSections
     { _sssSections :: IntMap (SelectionSection a)
     , _sssSelPos :: Maybe Int
-    , _sssMaxSize :: Int
     }
 
-data SSRestriction = NoSSRestriction
-    | SSRestriction
-        { _ssrSize :: Int
-        , _ssrOffset :: Int
-        }
-
 data SectionCursor = SectionCursor
     { _scurPos :: Int
     , _scurSize :: Int
@@ -55,9 +48,8 @@ data SelectionSection a = SelectionSection
 --    , _ssSelSize :: Maybe Int
 --    , _ssSelColor :: Maybe Color
     , _ssMinSize :: Int
-    , _ssPriority :: Int
+    --, _ssPriority :: Int
     , _ssOffset :: Int
-    , _ssRestriction :: SSRestriction
     , _ssShownItems :: [Picture]
     , _ssIndent :: Int
     , _ssDescriptor :: String
@@ -84,7 +76,7 @@ data SelectionItem a = SelectionItem
     { _siPictures :: [String]
     , _siHeight :: Int
     , _siIsSelectable :: Bool
-    , _siWidth  :: Int
+    --, _siWidth  :: Int
     , _siColor  :: Color
     , _siOffX   :: Int
     , _siPayload :: a
@@ -93,7 +85,7 @@ data SelectionItem a = SelectionItem
     { _siPictures :: [String]
     , _siHeight :: Int
     , _siIsSelectable :: Bool
-    , _siWidth  :: Int
+    --, _siWidth  :: Int
     , _siColor  :: Color
     , _siOffX   :: Int
     }
@@ -106,6 +98,5 @@ makeLenses ''SelectionIntMap
 makeLenses ''SelectionSection
 makeLenses ''SelectionSections
 makeLenses ''SectionCursor
-makeLenses ''SSRestriction
 --deriveJSON defaultOptions ''SelectionItem
 --deriveJSON defaultOptions ''SelectionList