Add "Baton" attack to gunwight

src/Units/Carcass.hs

@@ -19,7 +19,7 @@ import GameModel
 import Units.Components
   ( AttackT(..)
   , anyTarget
-  , buildAttack, inflictTokens
+  , buildAttack, inflictTokens, push
   )
 
 gunwight :: BaseStats
@@ -52,6 +52,16 @@ gunwightActions =
     , tHeadshotEffects = [inflictTokens VitalVulnr (-1)]
     , tStandardEffects = []
     }
+  , buildAttack $ AttackT
+    { tName            = "Baton"
+    , tRange           = (1, 1)
+    , tValidTargets    = anyTarget
+    , tMelee           = True
+    , tDamageType      = BasicDamage
+    , tDamageAmount    = 0
+    , tStandardEffects = [push 1]
+    , tHeadshotEffects = []
+    }
   ]
 
 gunwightStatBonuses :: BoardState -> CharacterIdentifier -> Stat a -> a