Cleanup

2024-09-30 12:54:31 +01:00
parent 65564c993b
commit fc5539cb38
58 changed files with 802 additions and 1255 deletions
@@ -33,7 +33,7 @@ useBreakListsLinkTest llist rlist = LinkTest ltest rtest
        return $ LinkUpdate linktype (set _3 (useBreakListsLinkTest llist (tail xs))) id

 basePartiallyComposedItem :: Item -> PartiallyComposedItem
-basePartiallyComposedItem itm = case itm ^. itType . iyBase of
+basePartiallyComposedItem itm = case itm ^. itType of
    HELD _ -> (itm, WeaponPlatformSF, useBreakListsLinkTest 
        (map (\(i,a) -> (AmmoMagSF a,AmmoInLink i a)) (IM.toList $ itm ^. itUse . heldAmmoTypes))
        [(WeaponTargetingSF,WeaponTargetingLink), (WeaponScopeSF,WeaponScopeLink)]