Make use hammers and item positions slightly more logical

src/Dodge/Default/Item.hs

@@ -15,7 +15,7 @@ defaultItem = Item
     , _itIsHeld = False
     , _itInvColor = yellow
     , _itInvSize = 1
-    , _itInvPos = Nothing
+    , _itPos = VoidItm
     , _itDimension = ItemDimension 0 0 NoPortage (const mempty)
     , _itConsumption = NoConsumption
     , _itUse = NoUse

src/Dodge/Default/Weapon.hs

@@ -74,7 +74,7 @@ defaultlUse :: ItemUse
 defaultlUse = LeftUse
     { _lUse = \_ _ -> id
     , _useDelay = FixedRate {_rateMax = 8, _rateTime = 0}
-    , _useHammer  = NoHammer
+    , _useHammer    = HammerUp
     , _eqEq = defaultEquip
     }
 defaultEquip :: Equipment
@@ -88,11 +88,9 @@ defaultEquip = Equipment
     }
 
 luseInstantNoH :: (Item -> Creature -> World -> World) -> ItemUse
-luseInstantNoH f = defaultlUse
-    { _lUse = f
-    , _useDelay = NoDelay
-    , _useHammer  = NoHammer
-    }
+luseInstantNoH f = defaultlUse 
+    & lUse .~ f
+    & useDelay .~ NoDelay
 defaultAimParams :: AimParams
 defaultAimParams = AimParams
     { _aimWeight = 0