Cleanup

2025-12-26 11:43:13 +00:00
parent de5a5854bf
commit 98c411c581
1 changed files with 0 additions and 1 deletions
@@ -119,7 +119,6 @@ tmDistributeAmmo tm w = fromMaybe w $ do
    let mid = tm ^. tmMachineID
    sid <- w ^? cWorld . lWorld . machines . ix mid 
        . mcType . mcdStorageMachine . _Just
-    p <- w ^? cWorld . lWorld . machines . ix mid . mcPos
    McStorage atype aamount <- w ^? cWorld . lWorld . machines . ix sid . mcType
    let (newaamount,w') = distributeAmmoToYou atype aamount w
    return $ w'