Cleanup

src/Dodge/Combine.hs

@@ -18,7 +18,7 @@ import Dodge.Item.InventoryColor
 import qualified IntMapHelp as IM
 import SimpleTrie
 
-combineList :: World -> [SelectionItem CombinableItem]
+combineList :: World -> [SelectionItem CombItem]
 combineList = map f . combineItemListYouX
   where
     f (is, itm) =
@@ -28,8 +28,8 @@ combineList = map f . combineItemListYouX
             , _siWidth = 15
             , _siIsSelectable = True
             , _siColor = itemInvColor $ baseCI itm
-            , _siOffX = 0
-            , _siPayload = Just $ CombinableItem is itm
+            , _siOffX = 2
+            , _siPayload = Just $ CombItem is itm
             }
 
 combineItemListYouX :: World -> [([Int], Item)]