Cleanup

2024-10-25 21:05:32 +01:00
parent 6424899afd
commit f6c136cfd6
25 changed files with 334 additions and 333 deletions
@@ -103,7 +103,8 @@ laserLinkTest :: Item -> LinkTest
 laserLinkTest itm = LTest (llleft itm) (llright itm)

 llleft :: Item -> PartiallyComposedItem -> Maybe LinkUpdate
-llleft itm pci = _tryLeftLink (uncurry useBreakL $ itemToBreakLists (CItem itm WeaponTargetingSF)) pci
+llleft itm = _tryLeftLink 
+    . uncurry useBreakL . itemToBreakLists $ CItem itm WeaponTargetingSF

 llright :: Item -> PartiallyComposedItem -> Maybe LinkUpdate
 llright itm pci = case pci ^. _1 . itType of