Fix equipment equipping/moving with right click

src/Dodge/Item/Grammar.hs

@@ -89,6 +89,8 @@ itemToFunction itm = case itm ^. itType of
     BULLETMOD BulletModPayload{} -> AmmoPayloadSF BulletAmmo
     BULLETMOD BulletModEffect{} -> AmmoEffectSF BulletAmmo
     TARGETING{} -> WeaponTargetingSF
+    LEFT {} -> EquipmentPlatformSF
+    EQUIP {} -> EquipmentPlatformSF
     _ -> UncomposableIsolateSF
 
 pciToCI :: PartiallyComposedItem -> ComposedItem