Start refactoring held item use

src/Dodge/Projectile/Update.hs

@@ -65,7 +65,7 @@ explodeRemoteRocket' mitid thepj w = w
     updateitem = fromMaybe (projectiles . at pjid .~ Nothing) $ do
         itid <- mitid
         itpos <- w ^? itemPositions . ix itid
-        return $ (pointToItem itpos . itUse . rUse     .~ (\_ _ -> id))
+        return $ (pointToItem itpos . itUse . rUse     .~ HeldDoNothing)
             . (projectiles . ix pjid . prjUpdates .~ [PJRetireRemote itid 30 pjid])
     pjid = _prjID thepj
 
@@ -118,7 +118,7 @@ retireRemoteProj'' :: Int -> Int -> World -> World
 retireRemoteProj'' itid pjid w = w
     & pointToItem (_itemPositions w IM.! itid) %~ 
         ( (itScope . scopePos .~ V2 0 0)
-        . (itUse . rUse .~ fireRemoteShell)
+        . (itUse . rUse .~ HeldFireRemoteShell)
         )
     & props %~ IM.delete pjid