Commit before extending selection sections: overlapping elements

src/Dodge/Combine.hs

@@ -46,19 +46,19 @@ combineItemListYouX = map (first $ concatMap g) . lookupItems . yourInv
 
 combineList :: World -> [SelectionItem CombinableItem]
 combineList w = case combineList' w of
-    [] -> [SelectionInfo ["No possible combinations"] 1 False white 0]
+    [] -> [SelectionInfo ["No possible combinations"] 1 False white 0 0]
     xs -> xs
 
 combineList' :: World -> [SelectionItem CombinableItem]
 combineList' = map f . combineListInfo
   where
     f (is,(strs,itm)) = SelectionItem
-        { _siPictures = itemDisplay itm 
-        , _siHeight = length (itemDisplay itm)
+        { _siPictures = basicItemDisplay itm 
+        , _siHeight = length (basicItemDisplay itm)
         , _siIsSelectable = True
-        --, _siWidth = maximum (map length (itemDisplay itm))
         , _siColor = _itInvColor itm
         , _siOffX = 0
+        , _siOffY = 0
         , _siPayload = CombinableItem is itm strs
         }