Remove unnecessary item held/worn field type

src/Dodge/Item/Equipment.hs

@@ -67,7 +67,6 @@ frontArmour = defaultEquipment
     }
     & itUse . eqEq . eqSite .~ GoesOnChest
     & itType . iyBase .~ FRONTARMOUR
-    & itDimension . dimPortage .~ WornItem 
     & itDimension . dimSPic .~ const (emptySH , setDepth 20 $ pictures
         [color thecol $ thickArc 0        (pi/2) 10 5
         ,color thecol $ thickArc (3*pi/2) (2*pi) 10 5
@@ -84,7 +83,6 @@ wristArmour = defaultEquipment
     & itUse . eqEq . eqUse .~ setWristShieldPos
     & itUse . eqEq . eqOnRemove .~ onRemoveWristShield
     & itType . iyBase .~ WRISTARMOUR
-    & itDimension . dimPortage .~ WornItem 
     & itDimension . dimSPic .~ const mempty
 
 onEquipWristShield :: Item -> Creature -> World -> World
@@ -132,6 +130,8 @@ flatShield = defaultEquipment
             , _aimRange = 0
             , _aimZoom = ItZoom 20 0.2 1
             , _aimStance = TwoHandFlat
+            , _aimHandlePos = 10
+            , _aimMuzPos = 10
             }
         , _heldScroll = \_ _ -> id
         }
@@ -212,7 +212,6 @@ jetPack = defaultEquipment
     , _itID = Nothing
     }   & itUse . eqEq . eqSite .~ GoesOnBack
     & itType . iyBase .~ JETPACK
-    & itDimension . dimPortage .~ WornItem 
     & itDimension . dimSPic .~ ( \_ -> (,) emptySH $ setDepth 20
         $ pictures [color yellow $ polygon $ reverse $ rectNSWE 5 (-5) (-11) (-3) ]
         )
@@ -224,7 +223,6 @@ brainHat = defaultEquipment
     }
     & itUse . eqEq . eqSite .~ GoesOnHead
     & itType . iyBase .~ BRAINHAT
-    & itDimension . dimPortage .~ WornItem 
     & itDimension . dimSPic .~ 
         const (noPic $ colorSH yellow $ upperPrismPoly 3 $ rectWH 4 4)
 
@@ -236,7 +234,6 @@ headLamp1 = defaultEquipment
     & itUse . eqEq . eqUse .~ createHeadLamp
     & itUse . eqEq . eqSite .~ GoesOnHead
     & itType . iyBase .~ HEADLAMP1
-    & itDimension . dimPortage .~ WornItem 
     & itDimension . dimSPic .~
         const (noPic $ colorSH yellow $ 
             translateSHf 5 2 (upperPrismPoly 8 $ rectWH 4 1)
@@ -249,7 +246,6 @@ headLamp = defaultEquipment
     & itUse . eqEq . eqUse .~ createHeadLamp
     & itUse . eqEq . eqSite .~ GoesOnHead
     & itType . iyBase .~ HEADLAMP
-    & itDimension . dimPortage .~ WornItem
     & itDimension . dimSPic .~ const (noPic headLampShape)
 
 headLampShape :: Shape
@@ -270,7 +266,6 @@ powerLegs = defaultEquipment
     }
     & itUse . eqEq . eqSite .~ GoesOnLegs
     & itType . iyBase .~ POWERLEGS
-    & itDimension . dimPortage .~ WornItem 
     & itDimension . dimSPic .~ const 
         (noPic $ translateSH (V3 0 4 0) $ colorSH yellow $ upperPrismPoly 3 $ rectWH 2 2)
 speedLegs :: Item
@@ -288,7 +283,6 @@ wristInvisibility = defaultEquipment
     & itUse . eqEq . eqOnEquip  .~ overCID (crCamouflage .~ Invisible)
     & itUse . eqEq . eqOnRemove .~ overCID (crCamouflage .~ FullyVisible)
     & itType . iyBase .~ INVISIBILITYEQUIPMENT GoesOnWrist
-    & itDimension . dimPortage .~ WornItem
     & itDimension . dimSPic .~ const (noPic (colorSH chartreuse $ upperPrismPoly 3 $ rectWH 2 2))
 
 overCID :: (Creature -> Creature) -> Item -> Creature -> World -> World