Fix at least one bug from item refactor, more remain

src/Dodge/Item/Draw.hs

@@ -19,8 +19,8 @@ import ShapePicture
 
 itemEquipPict :: IM.IntMap Item -> Creature -> DTree CItem -> SPic
 itemEquipPict m cr itmtree
-    | Just i <- itm ^? itLocation . ilInvID
-    , Just esite <- itm ^? itLocation . ilEquipSite . _Just
+    | --Just i <- itm ^? itLocation . ilInvID
+     Just esite <- itm ^? itLocation . ilEquipSite . _Just
     , Just attachpos <- equipAttachPos <$> itm ^? itType . ibtEquip
         = equipPosition esite m cr attachpos (itemSPic itm)
     | itm ^? itLocation . ilInvID == cr ^? crManipulation . manObject . imRootSelectedItem

src/Dodge/Item/Location/Initialize.hs

@@ -3,11 +3,11 @@ module Dodge.Item.Location.Initialize
     --, initItemLocations
     )
     where
-import NewInt
-import Dodge.Data.LWorld
-import Control.Lens
-import qualified IntMapHelp as IM
-import Data.Traversable
+--import NewInt
+--import Dodge.Data.LWorld
+--import Control.Lens
+--import qualified IntMapHelp as IM
+--import Data.Traversable
 
 --initItemLocations :: LWorld -> LWorld
 ----initItemLocations = initCrsItemLocations . initFlItemsLocations . initTusItemLocations