justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2025-07-13 21:13:31 +01:00
parent f1d4f530d9
commit d861be8acf
5 changed files with 270 additions and 355 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Grammar.hs
+1 -1
View File
@@ -106,7 +106,7 @@ extraWeaponLinksBelow itm
| otherwise = []
getAmmoLinks :: Item -> [ItemSF]
getAmmoLinks itm = map (uncurry AmmoMagSF) (IM.toList $ itemAmmoSlots itm)
getAmmoLinks = map (uncurry AmmoMagSF) . IM.toList . itemAmmoSlots
itemToFunction :: Item -> ItemSF
itemToFunction itm = case itm ^. itType of