Remove creature hammer, may have broken equipment/combining

src/Dodge/Creature/Impulse/UseItem.hs

@@ -3,7 +3,7 @@ module Dodge.Creature.Impulse.UseItem (
 ) where
 
 import Control.Lens
-import Control.Monad
+--import Control.Monad
 import Data.Maybe
 import Dodge.Data.ComposedItem
 import Dodge.Data.DoubleTree
@@ -36,10 +36,10 @@ useSelectedItem crid w = (worldEventFlags . at InventoryChange ?~ ()) . fromMayb
                 heldEffect (bimap _iatType fst3 usedloc) cr w
                     & pointerToItem itm . itUse . heldHammer .~ HammerDown
         RemoteDetonatorSF -> do
-            guard (_crHammerPosition cr == HammerUp)
             return $ activateDetonator usedloc w
+                    & pointerToItem itm . itUse . heldHammer .~ HammerDown
         _ | isJust $ itm ^? itUse . uequipEffect -> do
-            guard (_crHammerPosition cr == HammerUp)
+--            guard (_crHammerPosition cr == HammerUp)
             invid' <- itm ^? itLocation . ilInvID
             return $ toggleEquipmentAt invid' cr w
         _ -> Nothing