Remove ComposedItem, to be replaced with PartiallyComposedItem

src/Dodge/Inventory/SelectionList.hs

@@ -19,11 +19,11 @@ import NewInt
 import Padding
 import Picture.Base
 
-invSelectionItem :: Int -> Creature -> Int -> ComposedItem -> SelectionItem ()
+invSelectionItem :: Int -> Creature -> Int -> PartiallyComposedItem -> SelectionItem ()
 invSelectionItem indent cr i ci =
     SelectionItem
         { _siPictures = pics & ix 0 %~ (++ anyequippos ++ anyhotkey)
-        , _siHeight = itInvHeight $ _cItem ci
+        , _siHeight = itInvHeight $ ci ^. _1
         , _siWidth = 15
         , _siIsSelectable = True
         , _siColor = col
@@ -82,6 +82,6 @@ closeButtonToSelectionItem w i = do
 
 closeItemToTextPictures :: FloorItem -> ([String], Color)
 closeItemToTextPictures flit = 
-    (basicItemDisplay it, itemInvColor . pciToCI $ basePCI it)
+    (basicItemDisplay it, itemInvColor $ basePCI it)
   where
     it = _flIt flit