Complete PartiallyComposedItem -> ComposedItem

src/Dodge/Item/Display.hs

@@ -13,7 +13,7 @@ import Dodge.Data.Creature
 import LensHelp
 import Padding
 
-itemDisplay :: Creature -> PartiallyComposedItem -> [String]
+itemDisplay :: Creature -> ComposedItem -> [String]
 itemDisplay cr ci =
     zipWithDefaults id (leftPad 15 ' ') itemDisplayPad (basicItemDisplay itm) (itemNumberDisplay cr ci)
   where
@@ -93,7 +93,7 @@ showAutoRechargeProgress lc = case lc of
 --  where
 --    ic = (itm ^?! itUse . heldConsumption . laSource)
 
-itemNumberDisplay :: Creature -> PartiallyComposedItem -> [String]
+itemNumberDisplay :: Creature -> ComposedItem -> [String]
 itemNumberDisplay cr ci = case (ci ^. _2, itm ^?! itUse) of
     (WeaponTargetingSF,_) 
         -> [maybe "" (const "!TARG!") (itm ^? itTargeting . itTgPos . _Just)]