Fix cursor positioning in selection sections

src/Dodge/Combine.hs

@@ -4,6 +4,7 @@ module Dodge.Combine (
     combineList',
 ) where
 
+import Dodge.Item.SlotsTaken
 import Dodge.Data.Universe
 import Dodge.Data.Combine
 import Dodge.Item.Display
@@ -54,7 +55,7 @@ combineList' = map f . combineListInfo
   where
     f (is,(strs,itm)) = SelectionItem
         { _siPictures = basicItemDisplay itm 
-        , _siHeight = length (basicItemDisplay itm)
+        , _siHeight = itSlotsTaken itm
         , _siIsSelectable = True
         , _siColor = _itInvColor itm
         , _siOffX = 0