Show items that are to be combined

src/Dodge/Inventory.hs

@@ -105,20 +105,6 @@ rmSelectedInvItem cid w = case w ^? cWorld . lWorld . creatures . ix cid . crMan
     Just i -> rmInvItem cid i w
     Nothing -> w
 
-selSecSelSize :: Int -> Int -> SelectionSections a -> Maybe Int
-selSecSelSize i j sss = fmap length $ sss ^? sssSections . ix i . ssItems . ix j . siPictures
-
-selSecSelPos :: Int -> Int -> SelectionSections a -> Maybe Int
-selSecSelPos i j sss = do
-    ss <- sss ^? sssSections . ix i
-    return . (secpos +) 
-        . subtract (ss ^. ssOffset) 
-        . sum 
-        . fmap (length . _siPictures) 
-        . fst $ IM.split j (ss ^. ssItems)
-  where
-    secpos = sum . fmap (length . _ssShownItems) . fst $ IM.split i $ sss ^. sssSections
-
 selNumPos :: ManipulatedObject -> World -> Maybe Int
 selNumPos mo w = w ^? hud . hudElement . diSections >>=
     case mo of