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-12-26 11:43:13 +00:00
parent de5a5854bf
commit 98c411c581
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEffect.hs
-1
View File
@@ -119,7 +119,6 @@ tmDistributeAmmo tm w = fromMaybe w $ do
let mid = tm ^. tmMachineID let mid = tm ^. tmMachineID
sid <- w ^? cWorld . lWorld . machines . ix mid sid <- w ^? cWorld . lWorld . machines . ix mid
. mcType . mcdStorageMachine . _Just . mcType . mcdStorageMachine . _Just
p <- w ^? cWorld . lWorld . machines . ix mid . mcPos
McStorage atype aamount <- w ^? cWorld . lWorld . machines . ix sid . mcType McStorage atype aamount <- w ^? cWorld . lWorld . machines . ix sid . mcType
let (newaamount,w') = distributeAmmoToYou atype aamount w let (newaamount,w') = distributeAmmoToYou atype aamount w
return $ w' return $ w'