Remove data Hammers

src/Dodge/WorldEffect.hs

@@ -5,6 +5,7 @@ module Dodge.WorldEffect (
     lineOutputTerminal,
 ) where
 
+import Dodge.Data.Input
 import Dodge.HeldUse
 import Dodge.Data.ComposedItem
 import Dodge.Data.DoubleTree
@@ -43,7 +44,7 @@ doWdWd we = case we of
 
 doItCrWdWd :: ItCrWdWd -> LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
 doItCrWdWd icww = case icww of
-    ItCrWdItemHeldEffect -> heldEffect
+    ItCrWdItemHeldEffect -> heldEffect InitialPress
 
 accessTerminal :: Maybe Int -> World -> World
 accessTerminal mtmid w = fromMaybe w $ do