Cleanup

src/Dodge/Creature/State.hs

@@ -207,7 +207,7 @@ movementSideEff cr w
         _ -> w
     | otherwise = footstepSideEffect cr w
   where
-    hasJetPack = any (\it -> it ^? itType . iyBase == Just (EQUIP JETPACK)) $ _crInv cr
+    hasJetPack = any (\it -> it ^? itType == Just (EQUIP JETPACK)) $ _crInv cr
     oldPos = _crOldPos cr
     momentum' = 0.97 *.* (_crPos cr -.- _crOldPos cr)
     momentum''
@@ -252,7 +252,7 @@ invSideEff cr w =
             w' & maybe id (\g -> doInvEffect g it cr) (it ^? itEffect . ieInv)
 
 itemInvSideEffect :: Creature -> Item -> World -> World
-itemInvSideEffect cr itm = case _iyBase $ _itType itm of
+itemInvSideEffect cr itm = case _itType itm of
     TARGETING tt -> updateItemTargeting tt cr itm
     _ -> id 
 --itemInvSideEffect cr it