Cleanup, improve auto wall rotate

src/Dodge/HeldUse.hs

@@ -167,7 +167,7 @@ locMuzzles loc
             & ix 0 . mzInaccuracy .~ 0
             & ix 0 . mzFlareType .~ TeslaGunFlare
 --    | otherwise = itemMuzzles $ loc ^. locDT . dtValue . _1
-    | otherwise = itemMuzzles $ loc
+    | otherwise = itemMuzzles loc
 
 itemMuzzles :: LocationDT OItem -> [Muzzle]
 itemMuzzles loc = case itm ^. itType of
@@ -933,8 +933,7 @@ removeAmmoFromMag x magid
 getBulletType :: DTree OItem -> Maybe Bullet
 getBulletType magtree =
     (magtree ^? dtValue . _1 . to magAmmoParams . _Just . ampBullet)
-        <&> buPayload .~ bpayload
-        <&> buEffect .~ beffect
+        <&> (buPayload .~ bpayload) . (buEffect .~ beffect)
   where
     bpayload = fromMaybe (BulPlain 100) $ do
         attree <- find ispayload (magtree ^. dtLeft)