Tweak main inventory display, have not solved space leak

src/Dodge/Data/SelectionList.hs

@@ -30,6 +30,7 @@ data SelectionSection a = SelectionSection
     { _ssItems :: IntMap (SelectionItem a)
     , _ssOffset :: Int
     , _ssShownItems :: [Picture]
+    , _ssShownLength :: Int
     , _ssIndent :: Int
     }