From 98c411c581170c7761eb7b46b2d7f278416cac12 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Fri, 26 Dec 2025 11:43:13 +0000
Subject: [PATCH] Cleanup

---
 src/Dodge/WorldEffect.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/Dodge/WorldEffect.hs b/src/Dodge/WorldEffect.hs
index 53b0447a7..923998570 100644
--- a/src/Dodge/WorldEffect.hs
+++ b/src/Dodge/WorldEffect.hs
@@ -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'