Push item use delay inside datatype, currently broken

src/Dodge/Default.hs

@@ -137,7 +137,6 @@ defaultEquipment = Equipment
     , _itFloorPict = \_ -> (,) emptySH $ setLayer 0 $ onLayer FlItLayer $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
     , _itEquipPict = \_ _ -> (,) emptySH blank
     , _itEffect = NoItEffect
-    , _itHammer = HammerUp
     , _itID = Nothing
     , _itAimingSpeed = 1
     , _itAimingRange = 0
@@ -164,7 +163,6 @@ defaultConsumable = Consumable
     , _itInvColor = blue
     , _itInvDisplay = \it -> _itName it ++ " x" ++ show (_itAmount it)
     , _itEffect = wpRecock
-    , _itHammer = HammerUp
     , _itAimStance = LeaveHolstered
     , _itDimension = defaultItemDimension
     }
@@ -214,7 +212,6 @@ defaultIt = Consumable
     , _itInvDisplay = _itName
     , _itInvColor = blue
     , _itEffect = NoItEffect
-    , _itHammer = HammerUp
     , _itAimStance = LeaveHolstered
     }
 defaultMachine :: Machine
@@ -305,3 +302,6 @@ defaultTLS = TLS
     f _ t 
         | _tlsTime t <= 0 = Nothing
         | otherwise       = Just $ t & tlsTime -~ 1
+
+upHammer :: HammerType
+upHammer = HasHammer HammerUp