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'