Continue reload refactor

2022-06-21 14:07:17 +01:00
parent 14a7189b44
commit 53c8be0679
33 changed files with 106 additions and 115 deletions
@@ -43,7 +43,7 @@ charFiringStratI
    :: [(Char, ChainEffect)] -- ^ Different firing effects for different characters
    -> ChainEffect
 charFiringStratI strats eff item cr w = case w ^? creatures . ix cid . crInv 
-        . ix (_crInvSel $ _creatures w IM.! cid) . itAttachment . atCharMode of
+        . ix (crSel $ _creatures w IM.! cid) . itAttachment . atCharMode of
    Just (c :<| _) -> fromMaybe id (Prelude.lookup c strats) eff item cr w
    _ -> w
  where