Cleanup

src/Dodge/HeldUse.hs

@@ -750,7 +750,7 @@ basicMuzFlare pos dir =
         . muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir
         . muzFlareAt (V4 10 10 1 3) (pos `v2z` 20) dir
 
-isAmmoIntLink :: Int -> ItemStructuralFunction -> Bool
+isAmmoIntLink :: Int -> ItemSF -> Bool
 isAmmoIntLink i (AmmoMagSF j _) = i == j
 isAmmoIntLink _ _ = False
 
@@ -796,10 +796,7 @@ useLoadedAmmo loc cr (_, w) (Just (mz, x, magtree)) = (,) True $
     mid = magtree ^? dtValue . _1 . itLocation . ilInvID
     itm = itmtree ^. dtValue . _1
 
-getAttachedSFLink ::
-    ItemStructuralFunction ->
-    DTree OItem ->
-    Maybe (NewInt ItmInt)
+getAttachedSFLink :: ItemSF -> DTree OItem -> Maybe (NewInt ItmInt)
 getAttachedSFLink sf = (^? dtRight . folding (find f) . dtValue . _1 . itID)
   where
     f :: DTree OItem -> Bool